simon/post-scarcity
1
0
Fork 0
Code Issues 16 Pull requests Projects Releases Packages Wiki Activity Actions

Down to to compilation errors. Had to reinstate individual size-class headers.

Browse source
This commit is contained in:
Simon Brooke 2026-03-29 11:07:30 +01:00
parent cae27731b7
commit 00997d3c90
26 changed files with 733 additions and 246 deletions
Download patch file Download diff file Expand all files Collapse all files

41
src/c/payloads/special.h
View file

@ -11,6 +11,7 @@
#define __psse_payloads_special_h
#include "memory/pointer.h"
#include "memory/pso4.h"
/**
* A special form - one whose arguments are not pre-evaluated but passed as
@ -20,25 +21,25 @@
#define SPECIALTAG "SFM"
#define SPECIALTV 5064275
/**
* @brief Payload of a special form cell.
*
* Currently identical to the payload of a function cell.
* \see function_payload
*/
struct special_payload {
/**
* pointer to the source from which the special form was compiled, or NIL
* if it is a primitive.
*/
struct pso_pointer meta;
/** pointer to a function which takes a cons pointer (representing
* its argument list) and a cons pointer (representing its environment) and a
* stack frame (representing the previous stack frame) as arguments and returns
* a cons pointer (representing its result). */
struct pso_pointer ( *executable ) ( struct pso4 *,
struct pso_pointer,
struct pso_pointer );
};
// /**
// * @brief Payload of a special form cell.
// *
// * Currently identical to the payload of a function cell.
// * \see function_payload
// */
// struct special_payload {
// /**
// * pointer to the source from which the special form was compiled, or NIL
// * if it is a primitive.
// */
// struct pso_pointer meta;
// /** pointer to a function which takes a cons pointer (representing
// * its argument list) and a cons pointer (representing its environment) and a
// * stack frame (representing the previous stack frame) as arguments and returns
// * a cons pointer (representing its result). */
// struct pso_pointer ( *executable ) ( struct pso4*,
// struct pso_pointer,
// struct pso_pointer );
// };
#endif