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

compiler.tree.propagation.call-effect: I deleted an important method on compose on accident.

char-rename
Doug Coleman 2017-06-02 23:31:35 -05:00
parent 7a703658f1
commit 72eaa9d466
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -37,6 +37,9 @@ M: curried cached-effect
{ [ 2dup [ +unknown+ eq? ] either? ] [ 2drop +unknown+ ] } { [ 2dup [ +unknown+ eq? ] either? ] [ 2drop +unknown+ ] }
} cond ; } cond ;
M: composed cached-effect
[ first>> ] [ second>> ] bi [ cached-effect ] bi@ compose-effects* ;
: safe-infer ( quot -- effect ) : safe-infer ( quot -- effect )
error get-global error-continuation get-global error get-global error-continuation get-global
[ [ [ infer ] [ 2drop +unknown+ ] recover ] without-dependencies ] 2dip [ [ [ infer ] [ 2drop +unknown+ ] recover ] without-dependencies ] 2dip