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

diff --git a/basis/compiler/tree/propagation/call-effect/call-effect.factor b/basis/compiler/tree/propagation/call-effect/call-effect.factor
index de1134b3be3de8d2d315706bba4f8cd2cdcdf00b..443f452cb577af00e4d90f24fb5ec973aee709b3 100644 (file)
--- 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