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

Added bind; but mainly, tactical commit before changinh lisp calling

Browse source 
convention
This commit is contained in:
Simon Brooke 2026-04-01 16:35:06 +01:00
parent 9eb0d3c5a0
commit f3a26bc02e
4 changed files with 75 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/io/read.c
View file

@ -28,6 +28,7 @@
#include "io/read.h"
#include "memory/node.h"
#include "memory/pointer.h"
#include "memory/pso.h"
#include "memory/pso2.h"
#include "memory/tags.h"
@ -208,6 +209,7 @@ struct pso_pointer read( struct pso_pointer frame_pointer,
break;
default:
struct pso_pointer next = make_frame( frame_pointer, stream, readtable, make_character(c));
inc_ref( next);
if ( iswdigit( c ) ) {
result =
read_number( next, env );
@ -221,6 +223,7 @@ struct pso_pointer read( struct pso_pointer frame_pointer,
// make_string( c, NIL ) ),
// frame_pointer );
}
dec_ref( next);
break;
}
}