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

Started to try to get back into this; work on exceptions and loops.

Browse source
This commit is contained in:
Simon Brooke 2021-07-24 08:54:55 +01:00
parent 16f78f4077
commit d2101dbd47
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
9 changed files with 101 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/ops/lispops.c
View file

@ -107,7 +107,7 @@ struct cons_pointer eval_forms( struct stack_frame *frame,
list = c_cdr( list );
}
return result;
return c_reverse( result);
}
/**
@ -991,7 +991,7 @@ c_progn( struct stack_frame *frame, struct cons_pointer frame_pointer,
result = eval_form( frame, frame_pointer, c_car( expressions ), env );
dec_ref( r );
expressions = c_cdr( expressions );
expressions = exceptionp(result) ? NIL : c_cdr( expressions );
}
return result;
@ -1259,7 +1259,7 @@ struct cons_pointer lisp_source( struct stack_frame *frame,
case SPECIALTV:
result = c_assoc( source_key, cell.payload.special.meta );
break;
case LAMBDATV:
case LAMBDATV:
result = make_cons( c_string_to_lisp_symbol( L"lambda" ),
make_cons( cell.payload.lambda.args,
cell.payload.lambda.body ) );