24 lines
660 B
C
24 lines
660 B
C
/**
|
|
* lambda.c
|
|
*
|
|
* Post Scarcity Soctware Environment
|
|
*
|
|
* TODO: Edit purpose.
|
|
*
|
|
* Copyright (c): 27 Apr 2026 Simon Brooke <simon@journeyman.cc>
|
|
* Licensed under GPL version 2.0, or, at your option, any later version.
|
|
*/
|
|
|
|
#include "memory/pointer.h"
|
|
#include "memory/pso.h"
|
|
#include "memory/pso2.h"
|
|
|
|
struct pso_pointer make_lambda_like_thing(struct pso_pointer frame_pointer,
|
|
struct pso_pointer args,
|
|
struct pso_pointer body, char *tag) {
|
|
|
|
struct pso_pointer result = allocate(frame_pointer, tag, 2);
|
|
struct pso2 *object = pointer_to_object(result);
|
|
object->payload.lambda.args = args;
|
|
object->payload.lambda.body = body;
|
|
}
|