Fix #label compilation

2008-02-13 00:31:00 -06:00 · 2008-02-13 00:31:00 -06:00 · 6de8c722a5
parent 170aecb255
commit 6de8c722a5
1 changed files with 1 additions and 1 deletions
--- a/core/generator/generator.factor
+++ b/core/generator/generator.factor
@ -109,7 +109,7 @@ M: node generate-node drop iterate-next ;
 ! #label
 M: #label generate-node
    dup node-param generate-call >r
-    dup node-child over node-param rot #label-word generate
+    dup node-child over #label-word rot node-param generate
    r> ;

 ! #loop