Fix type error
parent
a5ff214d67
commit
75c17dfa8a
basis/compiler/generator
|
@ -60,7 +60,9 @@ SYMBOL: current-label-start
|
||||||
GENERIC: generate-node ( node -- next )
|
GENERIC: generate-node ( node -- next )
|
||||||
|
|
||||||
: generate-nodes ( nodes -- )
|
: 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-generate-nodes ( -- )
|
||||||
init-templates
|
init-templates
|
||||||
|
|
Loading…
Reference in New Issue