: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