compiler.tree.propagation.transforms: use integer>fixnum-strict in shift.

diff --git a/basis/compiler/tree/propagation/transforms/transforms.factor b/basis/compiler/tree/propagation/transforms/transforms.factor
index adaab539be05d4b65bea3eab5ad40f97fc0006e0..735a8fcdabcfdbd2b54da468a3fe746ae052c21f 100644 (file)
--- 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 ;