From 72eaa9d46612974e218bb2968263f6fe30910307 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 2 Jun 2017 23:31:35 -0500
Subject: [PATCH] compiler.tree.propagation.call-effect: I deleted an important
 method on compose on accident.

---
 basis/compiler/tree/propagation/call-effect/call-effect.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/basis/compiler/tree/propagation/call-effect/call-effect.factor b/basis/compiler/tree/propagation/call-effect/call-effect.factor
index de1134b3be..443f452cb5 100644
--- 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