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

ENABLE NEW ACCESSORS

db4
Doug Coleman 2008-09-02 01:56:06 -05:00
parent 76fb3de616
commit bef502adfc
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,8 +3,8 @@
USING: arrays definitions hashtables kernel kernel.private math USING: arrays definitions hashtables kernel kernel.private math
namespaces sequences sequences.private strings vectors words namespaces sequences sequences.private strings vectors words
quotations memory combinators generic classes classes.algebra quotations memory combinators generic classes classes.algebra
classes.builtin classes.private slots.deprecated slots.private classes.builtin classes.private slots.private slots
slots compiler.units math.private accessors assocs effects ; compiler.units math.private accessors assocs effects ;
IN: classes.tuple IN: classes.tuple
PREDICATE: tuple-class < class PREDICATE: tuple-class < class
@ -139,13 +139,11 @@ ERROR: bad-superclass class ;
dup tuple-prototype "prototype" set-word-prop ; dup tuple-prototype "prototype" set-word-prop ;
: finalize-tuple-slots ( class slots -- slots ) : finalize-tuple-slots ( class slots -- slots )
over superclass-size 2 + finalize-slots deprecated-slots ; swap superclass-size 2 + finalize-slots ;
: define-tuple-slots ( class -- ) : define-tuple-slots ( class -- )
dup dup "slots" word-prop finalize-tuple-slots dup dup "slots" word-prop finalize-tuple-slots
[ define-accessors ] ! new define-accessors ;
[ define-slots ] ! old
2bi ;
: make-tuple-layout ( class -- layout ) : make-tuple-layout ( class -- layout )
[ ] [ ]