From 9bb5e3476255c3db41311558d3ffd7eb46b3870d Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 25 Nov 2013 12:48:48 -0800 Subject: [PATCH] compiler.tree.propgation.transforms: make bit? use integer>fixnum. --- basis/compiler/tree/propagation/transforms/transforms.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/compiler/tree/propagation/transforms/transforms.factor b/basis/compiler/tree/propagation/transforms/transforms.factor index 6fc10b797b..515c5f52e9 100644 --- a/basis/compiler/tree/propagation/transforms/transforms.factor +++ b/basis/compiler/tree/propagation/transforms/transforms.factor @@ -318,7 +318,7 @@ M\ set intersects? [ intersects?-quot ] 1 define-partial-eval : bit-quot ( #call -- quot/f ) in-d>> second value-info interval>> 0 fixnum-bits [a,b] interval-subset? - [ [ >fixnum ] dip fixnum-bit? ] f ? ; + [ [ integer>fixnum ] dip fixnum-bit? ] f ? ; \ bit? [ bit-quot ] "custom-inlining" set-word-prop