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

Print output for lambda and nlambda cells was misleading.

Browse source
This commit is contained in:
Simon Brooke 2021-07-19 10:57:22 +01:00
parent 8522e50f42
commit 16f78f4077
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/io/print.c
View file

@ -183,8 +183,9 @@ struct cons_pointer print( URL_FILE * output, struct cons_pointer pointer ) {
print_string_contents( output, pointer ); print_string_contents( output, pointer );
break; break;
case LAMBDATV:{ case LAMBDATV:{
url_fputws( L"<Anonymous Function: ", output);
struct cons_pointer to_print = struct cons_pointer to_print =
make_cons( c_string_to_lisp_symbol( L"lambda" ), make_cons( c_string_to_lisp_symbol( L"\u03bb" ),
make_cons( cell.payload.lambda.args, make_cons( cell.payload.lambda.args,
cell.payload.lambda.body ) ); cell.payload.lambda.body ) );
inc_ref( to_print ); inc_ref( to_print );
@ -192,14 +193,16 @@ struct cons_pointer print( URL_FILE * output, struct cons_pointer pointer ) {
print( output, to_print ); print( output, to_print );
dec_ref( to_print ); dec_ref( to_print );
url_fputwc( L'>', output);
} }
break; break;
case NILTV: case NILTV:
url_fwprintf( output, L"nil" ); url_fwprintf( output, L"nil" );
break; break;
case NLAMBDATV:{ case NLAMBDATV:{
url_fputws( L"<Anonymous Special Form: ", output);
struct cons_pointer to_print = struct cons_pointer to_print =
make_cons( c_string_to_lisp_symbol( L"nlambda" ), make_cons( c_string_to_lisp_symbol( L"n\u03bb" ),
make_cons( cell.payload.lambda.args, make_cons( cell.payload.lambda.args,
cell.payload.lambda.body ) ); cell.payload.lambda.body ) );
inc_ref( to_print ); inc_ref( to_print );
@ -207,6 +210,7 @@ struct cons_pointer print( URL_FILE * output, struct cons_pointer pointer ) {
print( output, to_print ); print( output, to_print );
dec_ref( to_print ); dec_ref( to_print );
url_fputwc( L'>', output);
} }
break; break;
case RATIOTV: case RATIOTV: