Updated readme.

[scheme.forth.jl.git] / scheme.4th

diff --git a/scheme.4th b/scheme.4th
index 75055ff..269eb52 100644 (file)
--- a/scheme.4th
+++ b/scheme.4th
@@ -9,6 +9,7 @@ include defer-is.4th
 2 constant character-type
 3 constant nil-type
 4 constant pair-type
+5 constant symbol-type
 : istype? ( obj -- obj b )
     over = ;
 
@@ -394,14 +395,14 @@ defer read
 ;
 
 : printnil ( nilobj -- )
-    drop ." ()" ;
+    2drop ." ()" ;
 
 defer print
 : printpair ( pairobj -- )
     2dup
     car print
     cdr
-    nil-type istype? if 2drop ." )" exit then
+    nil-type istype? if 2drop exit then
     pair-type istype? if space recurse exit then
     ."  . " print
 ;