Fixed bug in (display)

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

diff --git a/scheme.4th b/scheme.4th
index 4ccf7d8..f2d7375 100644 (file)
--- a/scheme.4th
+++ b/scheme.4th
@@ -1456,7 +1456,7 @@ hide env
 ;
 
 : (printstring) ( stringobj -- )
-    nil-type istype? if 2drop exit then
+    nil? if 2drop exit then
 
     2dup car drop dup
     case