From 5751f6d3096262330ba54e2d5a9041e50d3e0618 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 5 Mar 2013 08:19:31 -0800 Subject: [PATCH] compiler.tree.propagation.transforms: use integer>fixnum-strict in shift. --- basis/compiler/tree/propagation/transforms/transforms.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/compiler/tree/propagation/transforms/transforms.factor b/basis/compiler/tree/propagation/transforms/transforms.factor index adaab539be..735a8fcdab 100644 --- a/basis/compiler/tree/propagation/transforms/transforms.factor +++ b/basis/compiler/tree/propagation/transforms/transforms.factor @@ -113,7 +113,7 @@ IN: compiler.tree.propagation.transforms : shift-2^ ( -- quot ) cell-bits tag-bits get - 1 - '[ - integer>fixnum dup 0 < [ 2drop 0 ] [ + integer>fixnum-strict dup 0 < [ 2drop 0 ] [ dup _ < [ fixnum-shift ] [ fixnum-shift ] if @@ -324,7 +324,7 @@ M\ set intersect [ intersect-quot ] 1 define-partial-eval [ \ push def>> ] [ f ] if ] "custom-inlining" set-word-prop -: custom-inline-fixnum ( x method -- y ) +: custom-inline-fixnum ( #call method -- y ) [ in-d>> first value-info class>> fixnum \ f class-or class<= ] dip '[ [ dup [ _ no-method ] unless ] ] [ f ] if ;