Updated README.

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

diff --git a/src/scheme-primitives.4th b/src/scheme-primitives.4th
index f38fd93..21a0440 100644 (file)
--- a/src/scheme-primitives.4th
+++ b/src/scheme-primitives.4th
@@ -594,10 +594,10 @@ defer display
 
 :noname ( args -- result )
     2dup car 2swap cdr
-
+ 
     nil? false = if car then ( proc argvals )
-    
-    apply
+     
+    2swap apply
 ; make-primitive apply 
 
 \ }}}