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

Complete reworking of the REPL

Browse source 
which is good in itself, but not what I was meant to be working on.
This commit is contained in:
Simon Brooke 2018-12-30 17:56:15 +00:00
parent 47f4b4c7f7
commit 02fe5669d8
43 changed files with 415 additions and 281 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/memory/dump.c
View file

@ -83,9 +83,9 @@ void dump_object( FILE * output, struct cons_pointer pointer ) {
fwprintf( output,
L"\t\tInteger cell: value %ld, count %u\n",
cell.payload.integer.value, cell.count );
if (!nilp(cell.payload.integer.more)) {
fputws( L"\t\tBIGNUM! More at\n:", output);
dump_object(output, cell.payload.integer.more);
if ( !nilp( cell.payload.integer.more ) ) {
fputws( L"\t\tBIGNUM! More at\n:", output );
dump_object( output, cell.payload.integer.more );
}
break;
case LAMBDATV:
@ -107,10 +107,10 @@ void dump_object( FILE * output, struct cons_pointer pointer ) {
case RATIOTV:
fwprintf( output,
L"\t\tRational cell: value %ld/%ld, count %u\n",
pointer2cell( cell.payload.ratio.dividend ).
payload.integer.value,
pointer2cell( cell.payload.ratio.divisor ).
payload.integer.value, cell.count );
pointer2cell( cell.payload.ratio.dividend ).payload.
integer.value,
pointer2cell( cell.payload.ratio.divisor ).payload.
integer.value, cell.count );
break;
case READTV:
fwprintf( output, L"\t\tInput stream\n" );