From 75c17dfa8a0e6ae85b6baa299a652652b4b28c2a Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 12 Aug 2008 03:40:27 -0500
Subject: [PATCH] Fix type error

---
 basis/compiler/generator/generator.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/basis/compiler/generator/generator.factor b/basis/compiler/generator/generator.factor
index a4a7815d70..aa9b6769ee 100755
--- 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