From 16f78f40779c48af73603a2d62ea85c63c8c1eb1 Mon Sep 17 00:00:00 2001
From: Simon Brooke <simon@journeyman.cc>
Date: Mon, 19 Jul 2021 10:57:22 +0100
Subject: [PATCH] Print output for lambda and nlambda cells was misleading.

---
 src/io/print.c | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/io/print.c b/src/io/print.c
index f0db8cd..c68c03e 100644
--- a/src/io/print.c
+++ b/src/io/print.c
@@ -183,8 +183,9 @@ struct cons_pointer print( URL_FILE * output, struct cons_pointer pointer ) {
             print_string_contents( output, pointer );
             break;
         case LAMBDATV:{
+                url_fputws( L"<Anonymous Function: ", output);
                 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,
                                           cell.payload.lambda.body ) );
                 inc_ref( to_print );
@@ -192,14 +193,16 @@ struct cons_pointer print( URL_FILE * output, struct cons_pointer pointer ) {
                 print( output, to_print );
 
                 dec_ref( to_print );
+                url_fputwc( L'>', output);
             }
             break;
         case NILTV:
             url_fwprintf( output, L"nil" );
             break;
         case NLAMBDATV:{
+                url_fputws( L"<Anonymous Special Form: ", output);
                 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,
                                           cell.payload.lambda.body ) );
                 inc_ref( to_print );
@@ -207,6 +210,7 @@ struct cons_pointer print( URL_FILE * output, struct cons_pointer pointer ) {
                 print( output, to_print );
 
                 dec_ref( to_print );
+                url_fputwc( L'>', output);
             }
             break;
         case RATIOTV: