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

Another inconclusive session: still nothing works, still making progress.

Browse source
This commit is contained in:
Simon Brooke 2026-04-22 18:16:00 +01:00
parent ef59563e25
commit eed4711fee
35 changed files with 317 additions and 232 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/ops/repl.c
View file

@ -54,7 +54,7 @@ void c_repl( bool show_prompt ) {
// TODO: NULL is not OK here, but will do until we have a REPL in Lisp.
struct pso_pointer env =
consp( oblist ) ? oblist : make_cons( NULL, oblist, nil );
consp( oblist ) ? oblist : make_cons( nil, oblist, nil );
struct pso_pointer input_stream = c_assoc( lisp_io_in, env );
struct pso_pointer output_stream = c_assoc( lisp_io_out, env );
@ -77,7 +77,7 @@ void c_repl( bool show_prompt ) {
/* bottom of stack */
struct pso_pointer frame_pointer = make_frame( 1, nil, input_stream );
if ( nilp( frame_pointer ) )
if ( c_nilp( frame_pointer ) )
break;
struct pso_pointer input = read(
#ifndef MANAGED_POINTER_ONLY
@ -86,7 +86,7 @@ void c_repl( bool show_prompt ) {
frame_pointer, env );
frame_pointer = make_frame( 1, frame_pointer, input );
if ( nilp( frame_pointer ) )
if ( c_nilp( frame_pointer ) )
break;
struct pso_pointer result = eval(