X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scheme.forth.jl.git;a=blobdiff_plain;f=scheme-primitives.4th;h=edf5894ab5e87962b15abc78991e5d260f775058;hp=38fe2e0f7b386ab4d339750cfa3a38e52c2e7198;hb=1d07170e70db6f42a900ea918ac22cce65345f2f;hpb=f0a8c4a13b2c6d38fd8fe9e1dedb75997386a6e0

diff --git a/scheme-primitives.4th b/scheme-primitives.4th
index 38fe2e0..edf5894 100644
--- a/scheme-primitives.4th
+++ b/scheme-primitives.4th
@@ -483,6 +483,13 @@ defer display
     drop symbol-type
 ; make-primitive gensym
 
+( Generate the NONE object indicating an unspecified return value. )
+:noname ( args -- result )
+    0 ensure-arg-count
+    
+    none
+; make-primitive none
+
 \ }}}
 
 \ vim:fdm=marker