Stack effect fixes

2007-09-25 20:31:06 -04:00 · 2007-09-25 20:31:06 -04:00 · 376097d2ff
parent e0318f769d
commit 376097d2ff
2 changed files with 3 additions and 3 deletions
--- a/extra/xml/utilities/utilities.factor
+++ b/extra/xml/utilities/utilities.factor
@ -10,9 +10,9 @@ IN: xml.utilities
 TUPLE: process-missing process tag ;
 M: process-missing error.
    "Tag <" write
-    process-missing-tag print-name
+    dup process-missing-tag print-name
    "> not implemented on process process " write
-    dup process-missing-process word-name print ;
+    process-missing-process word-name print ;

 : run-process ( tag word -- )
    2dup "xtable" word-prop