\ ==== Evaluation ==== {{{
-:noname ( args -- result )
- 2dup car 2swap cdr
-
- nil? false = if car then ( proc argvals )
-
- apply
-; make-primitive apply
+\ :noname ( args -- result )
+\ 2dup car 2swap cdr
+\
+\ nil? false = if car then ( proc argvals )
+\
+\ apply
+\ ; make-primitive apply
\ }}}
nil? if
." Error."
else
- ." Error: "
-
- begin
- 2dup car print
- cdr nil?
- until
+ ." Error:"
+
+ 2dup car space display
+ cdr nil? invert if
+ begin
+ 2dup car space print
+ cdr nil?
+ until
+ then
2drop
then