WArning! this doesn't even build! Half way through reworking eval.

This commit is contained in:
Simon Brooke 2017-09-17 20:18:15 +01:00
parent cf1b09c62a
commit b713c1822d
9 changed files with 106 additions and 85 deletions

View file

@ -33,7 +33,10 @@ repl( FILE * in_stream, FILE * out_stream, FILE * error_stream,
input.offset );
print( error_stream, input );
struct cons_pointer value = lisp_eval( input, oblist, NULL );
struct stack_frame *frame = make_empty_frame( NIL, oblist );
frame->arg[0] = input;
struct cons_pointer value = lisp_eval( frame, oblist );
free_stack_frame( frame );
// print( out_stream, input );
fwprintf( out_stream, L"\n" );
fwprintf( error_stream, L"\neval {%d,%d}=> ", input.page,