Removing hack with >fixnum, now subsumed by a more general optimization

db4
Daniel Ehrenberg 2010-04-25 02:18:45 -05:00
parent 0f0b56f1ef
commit 23e78b8380
1 changed files with 0 additions and 6 deletions

View File

@ -312,12 +312,6 @@ M\ set intersect [ intersect-quot ] 1 define-partial-eval
[ \ push def>> ] [ f ] if
] "custom-inlining" set-word-prop
! Speeds up fasta benchmark
\ >fixnum [
in-d>> first value-info class>> fixnum \ f class-or class<=
[ [ dup [ \ >fixnum no-method ] unless ] ] [ f ] if
] "custom-inlining" set-word-prop
! We want to constant-fold calls to heap-size, and recompile those
! calls when a C type is redefined
\ heap-size [