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

compiler.tree.propagation: throw the proper error in >fixnum methods.

db4
John Benediktsson 2012-10-05 09:54:51 -07:00
parent 80b39bd4f2
commit f7d58fff90
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -324,13 +324,13 @@ M\ set intersect [ intersect-quot ] 1 define-partial-eval
[ \ push def>> ] [ f ] if
] "custom-inlining" set-word-prop
: custom-inline-fixnum ( x -- y )
in-d>> first value-info class>> fixnum \ f class-or class<=
[ [ dup [ \ >fixnum no-method ] unless ] ] [ f ] if ;
: custom-inline-fixnum ( x method -- y )
[ in-d>> first value-info class>> fixnum \ f class-or class<= ] dip
'[ [ dup [ _ no-method ] unless ] ] [ f ] if ;
! Speeds up fasta benchmark
{ >fixnum integer>fixnum integer>fixnum-strict } [
[ custom-inline-fixnum ] "custom-inlining" set-word-prop
dup '[ _ custom-inline-fixnum ] "custom-inlining" set-word-prop
] each
! We want to constant-fold calls to heap-size, and recompile those