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

2017-06-02 23:31:35 -05:00 · 2017-06-02 23:31:35 -05:00 · 72eaa9d466
parent 7a703658f1
commit 72eaa9d466
1 changed files with 3 additions and 0 deletions
--- a/basis/compiler/tree/propagation/call-effect/call-effect.factor
+++ b/basis/compiler/tree/propagation/call-effect/call-effect.factor
@ -37,6 +37,9 @@ M: curried cached-effect
        { [ 2dup [ +unknown+ eq? ] either? ] [ 2drop +unknown+ ] }
    } cond ;

+M: composed cached-effect
+    [ first>> ] [ second>> ] bi [ cached-effect ] bi@ compose-effects* ;
+
 : safe-infer ( quot -- effect )
    error get-global error-continuation get-global
    [ [ [ infer ] [ 2drop +unknown+ ] recover ] without-dependencies ] 2dip