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

give-up-transform now uses a cached stack effect. Slight performance improvement when compiling calls to member? with a non-literal quotation

db4
Slava Pestov 2009-03-13 04:28:24 -05:00
parent a23a6a2870
commit 06f29ab7e4
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/stack-checker/transforms/transforms.factor
View File

@ -10,10 +10,11 @@ stack-checker.recursive-state ;
IN: stack-checker.transforms IN: stack-checker.transforms
: give-up-transform ( word -- ) : give-up-transform ( word -- )
dup recursive-word? {
[ call-recursive-word ] { [ dup "inferred-effect" word-prop ] [ cached-infer ] }
[ dup infer-word apply-word/effect ] { [ dup recursive-word? ] [ call-recursive-word ] }
if ; [ dup infer-word apply-word/effect ]
} cond ;
:: ((apply-transform)) ( word quot values stack rstate -- ) :: ((apply-transform)) ( word quot values stack rstate -- )
rstate recursive-state rstate recursive-state