Uncomment
parent
19673d6826
commit
03468ebe6e
|
@ -92,7 +92,7 @@ M: node generate-node drop iterate-next ;
|
||||||
%jump-label ;
|
%jump-label ;
|
||||||
|
|
||||||
: generate-call ( label -- next )
|
: generate-call ( label -- next )
|
||||||
! dup maybe-compile
|
dup maybe-compile
|
||||||
end-basic-block
|
end-basic-block
|
||||||
dup compiling-loops get at [
|
dup compiling-loops get at [
|
||||||
%jump-label f
|
%jump-label f
|
||||||
|
|
Loading…
Reference in New Issue