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

Argh!

Browse source
This commit is contained in:
simon 2017-01-12 15:02:41 +00:00
parent b0ea969197
commit f64469235d
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/consspaceobject.h
View file

@ -63,6 +63,11 @@
*/
#define consp(conspoint) (check_tag(conspoint,CONSTAG))
/**
* true if conspointer points to a function cell, else false
*/
#define functionp(conspoint) (check_tag(conspoint,FUNCTIONTAG))
/**
* true if conspointer points to a string cell, else false
*/
@ -114,6 +119,11 @@ struct cons_payload {
struct cons_pointer cdr;
};
struct function_payload {
struct cons_pointer source;
struct cons_pointer (*executable)(struct cons_pointer, struct cons_pointer);
};
/**
* payload of a free cell. For the time being identical to a cons cell,
* but it may not be so in future.
@ -165,6 +175,8 @@ struct cons_space_object {
struct cons_payload cons;
/* if tag == FREETAG */
struct free_payload free;
/* if tag == FUNCTIONTAG */
struct function_payload function;
/* if tag == INTEGERTAG */
struct integer_payload integer;
/* if tag == NILTAG; we'll treat the special cell NIL as just a cons */