compiler.tree.propagation.recursive: undoing 097b40ce4107e824acd83fdf1c024596e692f7d0...

diff --git a/basis/compiler/tree/propagation/recursive/recursive.factor b/basis/compiler/tree/propagation/recursive/recursive.factor
index ebc0947e01d8e364459f4418993a01487c58dc0e..f008eb6daafa3832673ed0ca7024bd8c17e6ac51 100644 (file)
--- a/basis/compiler/tree/propagation/recursive/recursive.factor
+++ b/basis/compiler/tree/propagation/recursive/recursive.factor
@@ -20,8 +20,10 @@ IN: compiler.tree.propagation.recursive
     [ latest-input-infos ] bi ;
 
 : counter-class ( interval class -- class' )
-    dup fixnum class<= rot array-capacity-interval interval-subset? and
-    [ drop array-capacity ] when ;
+    dup fixnum class<= [
+        swap array-capacity-interval interval-subset?
+        [ drop array-capacity ] when
+    ] [ nip ] if ;
 
 :: generalize-counter-interval ( interval initial-interval class -- interval' )
     interval class counter-class :> class