Minor speedup

db4
Slava Pestov 2008-11-23 04:22:38 -06:00
parent 60964487e0
commit f520823d5c
1 changed files with 12 additions and 8 deletions

View File

@ -1,13 +1,13 @@
! Copyright (C) 2004, 2008 Slava Pestov. ! Copyright (C) 2004, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien arrays byte-arrays generic hashtables USING: alien arrays byte-arrays generic hashtables
hashtables.private io kernel math math.order namespaces make hashtables.private io kernel math math.private math.order
parser sequences strings vectors words quotations assocs layouts namespaces make parser sequences strings vectors words
classes classes.builtin classes.tuple classes.tuple.private quotations assocs layouts classes classes.builtin classes.tuple
kernel.private vocabs vocabs.loader source-files definitions classes.tuple.private kernel.private vocabs vocabs.loader
slots classes.union classes.intersection classes.predicate source-files definitions slots classes.union
compiler.units bootstrap.image.private io.files accessors classes.intersection classes.predicate compiler.units
combinators ; bootstrap.image.private io.files accessors combinators ;
IN: bootstrap.primitives IN: bootstrap.primitives
"Creating primitives and basic runtime structures..." print flush "Creating primitives and basic runtime structures..." print flush
@ -185,7 +185,11 @@ define-union-class
! A predicate class used for declarations ! A predicate class used for declarations
"array-capacity" "sequences.private" create "array-capacity" "sequences.private" create
"fixnum" "math" lookup "fixnum" "math" lookup
0 bootstrap-max-array-capacity <fake-bignum> [ between? ] 2curry [
[ dup 0 fixnum>= ] %
bootstrap-max-array-capacity <fake-bignum> [ fixnum<= ] curry ,
[ [ drop f ] if ] %
] [ ] make
define-predicate-class define-predicate-class
! Catch-all class for providing a default method. ! Catch-all class for providing a default method.