X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=scheme-primitives.4th;h=86fbbd9749606e2e1ef6d1ffed3c7cd34db69c85;hb=fa6316fc696ddda325b2e2a8af83f4024ddf32bd;hp=fdb28d37e1eb911251a0dd60f80e73bfe7b8f787;hpb=e0ca5b6fd7381323cb9737f0ca6bfec9ede3eb7d;p=scheme.forth.jl.git

diff --git a/scheme-primitives.4th b/scheme-primitives.4th
index fdb28d3..86fbbd9 100644
--- a/scheme-primitives.4th
+++ b/scheme-primitives.4th
@@ -352,7 +352,10 @@ hide relcfa
     pad swap load
 ; make-primitive load
 
-' read make-primitive read
+:noname ( args -- obj )
+    0 ensure-arg-count
+    read
+; make-primitive read
 
 defer display
 :noname ( args -- none )