From 13cd2c4e7586a4174b0d22bbc0ec047765114568 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Mon, 31 Oct 2016 11:27:05 +0100 Subject: [PATCH] compiler.tree.propagation.recursive: undoing 097b40ce4107e824acd83fdf1c024596e692f7d0 (#1513) --- basis/compiler/tree/propagation/recursive/recursive.factor | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/basis/compiler/tree/propagation/recursive/recursive.factor b/basis/compiler/tree/propagation/recursive/recursive.factor index ebc0947e01..f008eb6daa 100644 --- 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