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

Huge progress. Now actually working.

Browse source
This commit is contained in:
simon 2017-09-13 15:58:59 +01:00
parent 9661ad339a
commit 0826dcfdda
18 changed files with 205 additions and 90 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/repl.c
View file

@ -31,19 +31,13 @@ repl( FILE * in_stream, FILE * out_stream, FILE * error_stream,
struct cons_pointer input = read( in_stream );
fwprintf( error_stream, L"\nread {%d,%d}=> ", input.page,
input.offset );
if ( show_prompt ) {
fwprintf( out_stream, L"\n-> " );
}
print( error_stream, input);
/* OK, I think what's going wrong here is we're passing by
* value and I think we should be passing by reference.
* I'm not certain about that, and as it will be a really
* major change I'm going to think some more before making
* in */
print( out_stream, lisp_eval( input, oblist, NULL ) );
struct cons_pointer value = lisp_eval( input, oblist, NULL );
// print( out_stream, input );
fwprintf( out_stream, L"\n" );
fwprintf( error_stream, L"\neval {%d,%d}=> ", input.page,
input.offset );
print( out_stream, value);
}
}