From 9a222a4163d5c26b95b64a4b6ff0aac77489999f Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 19 Jan 2010 21:08:45 +1300 Subject: [PATCH] compiler.tree.propagation.call-effect: eliminate some dispatch from call( expansion --- basis/compiler/tree/propagation/call-effect/call-effect.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/compiler/tree/propagation/call-effect/call-effect.factor b/basis/compiler/tree/propagation/call-effect/call-effect.factor index 439b428784..04320ee792 100644 --- a/basis/compiler/tree/propagation/call-effect/call-effect.factor +++ b/basis/compiler/tree/propagation/call-effect/call-effect.factor @@ -74,7 +74,7 @@ M: quotation cached-effect : call-effect-unsafe? ( quot effect -- ? ) [ cached-effect ] dip over +unknown+ eq? - [ 2drop f ] [ effect<= ] if ; inline + [ 2drop f ] [ [ { effect } declare ] dip effect<= ] if ; inline : (call-effect-slow>quot) ( in out effect -- quot ) [