Implemented cond as macro.

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

diff --git a/scheme-primitives.4th b/scheme-primitives.4th
index 38fe2e0..edf5894 100644 (file)
--- 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