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

Tweak to reduce image size; don't produce prototypes for tuples with all slots set to f

db4
slava 2008-07-05 03:07:25 -05:00
parent d9bb18b193
commit 8321a41db0
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/classes/tuple/tuple.factor
View File

@ -135,7 +135,8 @@ ERROR: bad-superclass class ;
dup boa-check-quot "boa-check" set-word-prop ; dup boa-check-quot "boa-check" set-word-prop ;
: tuple-prototype ( class -- prototype ) : tuple-prototype ( class -- prototype )
[ all-slots [ initial>> ] map ] keep slots>tuple ; [ all-slots [ initial>> ] map ] keep
over [ ] contains? [ slots>tuple ] [ 2drop f ] if ;
: define-tuple-prototype ( class -- ) : define-tuple-prototype ( class -- )
dup tuple-prototype "prototype" set-word-prop ; dup tuple-prototype "prototype" set-word-prop ;
@ -304,7 +305,8 @@ M: tuple hashcode*
] recursive-hashcode ; ] recursive-hashcode ;
M: tuple-class new M: tuple-class new
"prototype" word-prop (clone) ; dup "prototype" word-prop
[ (clone) ] [ tuple-layout <tuple> ] ?if ;
M: tuple-class boa M: tuple-class boa
[ "boa-check" word-prop call ] [ "boa-check" word-prop call ]