:noname ( args -- none )
2dup 1 ensure-arg-count
- car print cr
+ car print
none
; make-primitive write
2dup 1 ensure-arg-count
car string-type ensure-arg-type
- (printstring) cr
+ (printstring)
none
; make-primitive display-string
2dup 1 ensure-arg-count
car character-type ensure-arg-type
- displaychar cr
+ displaychar
none
; make-primitive display-character
2dup 1 ensure-arg-count
car
- display cr
+ display
none
; make-primitive display
( ==== 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