X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=scheme-primitives.4th;h=e5a7dba89f4189877e6ce6dfb21f79e40286f236;hb=61f902750c854d52bc37a5903e07b7e84f7081c4;hp=89e379e6efa893bcf2d6fdfa773d147dd4d2107c;hpb=7d3d7e571901f7191ce548600b51e97f30f8a225;p=scheme.forth.jl.git

diff --git a/scheme-primitives.4th b/scheme-primitives.4th
index 89e379e..e5a7dba 100644
--- a/scheme-primitives.4th
+++ b/scheme-primitives.4th
@@ -418,3 +418,13 @@ defer display
 
     none
 ; make-primitive newline
+
+( ==== Evaluation ==== )
+
+:noname ( args -- result )
+    2dup car 2swap cdr
+
+    nil? false = if car then ( proc argvals )
+    
+    apply
+; make-primitive apply