From 31bead78f8ab7c937cc5e867228ff2d7dfbee6a8 Mon Sep 17 00:00:00 2001 From: slava Date: Wed, 15 Nov 2006 05:58:58 +0000 Subject: [PATCH] Dataflow view of code with #label was screwed up --- library/compiler/inference/words.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/library/compiler/inference/words.factor b/library/compiler/inference/words.factor index d75b9dadef..1097dbc5bf 100644 --- a/library/compiler/inference/words.factor +++ b/library/compiler/inference/words.factor @@ -85,7 +85,7 @@ M: #call-label collect-recursion* dup inline-block over recursive-label? [ meta-d get >r 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 ] if ;