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

Added list and unit test for it.

Browse source
This commit is contained in:
Simon Brooke 2021-09-08 13:47:36 +01:00
parent 06e87f09fa
commit 3abebe937c
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
5 changed files with 58 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/ops/lispops.c
View file

@ -1453,6 +1453,19 @@ struct cons_pointer lisp_mapcar( struct stack_frame *frame,
return result;
}
struct cons_pointer lisp_list( struct stack_frame *frame,
struct cons_pointer frame_pointer,
struct cons_pointer env ) {
struct cons_pointer result = frame->more;
for ( int a = nilp(result) ? frame->args - 1: args_in_frame - 1;
a >= 0; a-- ) {
result = make_cons(fetch_arg(frame, a), result);
}
return result;
}
// /**
// * Function; print the internal representation of the object indicated by `frame->arg[0]` to the
// * (optional, defaults to the value of `*out*` in the environment) stream indicated by `frame->arg[1]`.

4
src/ops/lispops.h
View file

@ -211,4 +211,8 @@ struct cons_pointer lisp_append( struct stack_frame *frame,
struct cons_pointer lisp_mapcar( struct stack_frame *frame,
struct cons_pointer frame_pointer,
struct cons_pointer env );
struct cons_pointer lisp_list( struct stack_frame *frame,
struct cons_pointer frame_pointer,
struct cons_pointer env );
#endif