Fixing everything for mandatory stack effects

[factor.git] / core / parser / parser.factor

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 4484c2ae54ade6e1be4631a45f39424c267028f9..e99f2b850bd4f5c75f7e4b6d271a0e65da5b9be0 100755 (executable)
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -359,9 +359,8 @@ M: staging-violation summary
     "A parsing word cannot be used in the same file it is defined in." ;
 
 : execute-parsing ( word -- )
-    [ changed-definitions get key? [ staging-violation ] when ]
-    [ execute ]
-    bi ;
+    dup changed-definitions get key? [ staging-violation ] when
+    execute ;
 
 : parse-step ( accum end -- accum ? )
     scan-word {