steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Dataflow view of code with #label was screwed up

darcs
slava 2006-11-15 05:58:58 +00:00
parent f67ee0f315
commit 31bead78f8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/compiler/inference/words.factor
View File

@ -85,7 +85,7 @@ M: #call-label collect-recursion*
dup inline-block over recursive-label? [ dup inline-block over recursive-label? [
meta-d get >r meta-d get >r
drop join-values inline-block apply-infer drop join-values inline-block apply-infer
r> over set-node-in-d node, r> over 2dup set-node-out-d set-node-in-d node,
] [ ] [
apply-infer node-child node-successor splice-node drop apply-infer node-child node-successor splice-node drop
] if ; ] if ;