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

compiler.tree.propagation.call-effect: eliminate some dispatch from call( expansion

db4
Slava Pestov 2010-01-19 21:08:45 +13:00
parent 5606825e8b
commit 9a222a4163
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/tree/propagation/call-effect/call-effect.factor
View File

@ -74,7 +74,7 @@ M: quotation cached-effect
: call-effect-unsafe? ( quot effect -- ? ) : call-effect-unsafe? ( quot effect -- ? )
[ cached-effect ] dip [ cached-effect ] dip
over +unknown+ eq? over +unknown+ eq?
[ 2drop f ] [ effect<= ] if ; inline [ 2drop f ] [ [ { effect } declare ] dip effect<= ] if ; inline
: (call-effect-slow>quot) ( in out effect -- quot ) : (call-effect-slow>quot) ( in out effect -- quot )
[ [