WArning! this doesn't even build! Half way through reworking eval.
This commit is contained in:
parent
cf1b09c62a
commit
b713c1822d
9 changed files with 106 additions and 85 deletions
|
|
@ -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,
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue