Stack effect fixes
parent
e0318f769d
commit
376097d2ff
|
@ -10,9 +10,9 @@ IN: xml.utilities
|
||||||
TUPLE: process-missing process tag ;
|
TUPLE: process-missing process tag ;
|
||||||
M: process-missing error.
|
M: process-missing error.
|
||||||
"Tag <" write
|
"Tag <" write
|
||||||
process-missing-tag print-name
|
dup process-missing-tag print-name
|
||||||
"> not implemented on process process " write
|
"> not implemented on process process " write
|
||||||
dup process-missing-process word-name print ;
|
process-missing-process word-name print ;
|
||||||
|
|
||||||
: run-process ( tag word -- )
|
: run-process ( tag word -- )
|
||||||
2dup "xtable" word-prop
|
2dup "xtable" word-prop
|
||||||
|
|
Loading…
Reference in New Issue