( ==== Evaluation ==== )
-:noname
- \ Dummy apply procedure
- \ Should never actually run!
- ." Error: Dummy apply procedure executed!" cr
-; make-primitive apply
+:noname ( args -- result )
+ 2dup car 2swap cdr
+
+ nil? false = if car then ( proc argvals )
+
+ apply
+; make-primitive apply