Fix type error

2008-08-12 03:40:27 -05:00 · 2008-08-12 03:40:27 -05:00 · 75c17dfa8a
parent a5ff214d67
commit 75c17dfa8a
1 changed files with 3 additions and 1 deletions
--- a/basis/compiler/generator/generator.factor
+++ b/basis/compiler/generator/generator.factor
@ -60,7 +60,9 @@ SYMBOL: current-label-start
 GENERIC: generate-node ( node -- next )

 : generate-nodes ( nodes -- )
-    [ current-node generate-node ] iterate-nodes end-basic-block ;
+    <sequence-cursor>
+    [ current-node generate-node ] iterate-nodes
+    end-basic-block ;

 : init-generate-nodes ( -- )
    init-templates