Permalink
Browse files

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

  • Loading branch information...
1 parent de166e6 commit 6ccd545c92e98c37ee2086a9b558a956e50c5d5d @mrjbq7 mrjbq7 committed Oct 5, 2012
Showing with 4 additions and 4 deletions.
  1. +4 −4 basis/compiler/tree/propagation/transforms/transforms.factor
@@ -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

0 comments on commit 6ccd545

Please sign in to comment.