steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2013-03-05 08:19:31 -08:00
parent 9af2924924
commit 5751f6d309
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/tree/propagation/transforms/transforms.factor
View File

@ -113,7 +113,7 @@ IN: compiler.tree.propagation.transforms
: shift-2^ ( -- quot ) : shift-2^ ( -- quot )
cell-bits tag-bits get - 1 - cell-bits tag-bits get - 1 -
'[ '[
integer>fixnum dup 0 < [ 2drop 0 ] [ integer>fixnum-strict dup 0 < [ 2drop 0 ] [
dup _ < [ fixnum-shift ] [ dup _ < [ fixnum-shift ] [
fixnum-shift fixnum-shift
] if ] if
@ -324,7 +324,7 @@ M\ set intersect [ intersect-quot ] 1 define-partial-eval
[ \ push def>> ] [ f ] if [ \ push def>> ] [ f ] if
] "custom-inlining" set-word-prop ] "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 [ in-d>> first value-info class>> fixnum \ f class-or class<= ] dip
'[ [ dup [ _ no-method ] unless ] ] [ f ] if ; '[ [ dup [ _ no-method ] unless ] ] [ f ] if ;