X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scheme.forth.jl.git;a=blobdiff_plain;f=scheme.4th;h=f2d73753fd5d5884e70cddc33e8d065a0327832e;hp=4ccf7d83049a0816dd1ac71b7d7a5a17a7da69f4;hb=988c879292acffbbf86367601c41ad7c010ff160;hpb=f81ffb05496dc3490c0c7469017d9c7ba7c0113a

diff --git a/scheme.4th b/scheme.4th
index 4ccf7d8..f2d7375 100644
--- 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