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

Fix regression

db4
Slava Pestov 2008-10-20 21:07:55 -05:00
parent 8d5135682f
commit 325dbf3eef
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -138,8 +138,12 @@ ERROR: bad-superclass class ;
: define-tuple-prototype ( class -- ) : define-tuple-prototype ( class -- )
dup tuple-prototype "prototype" set-word-prop ; dup tuple-prototype "prototype" set-word-prop ;
: prepare-slots ( slots superclass -- slots' )
[ make-slots ] [ class-size 2 + ] bi* finalize-slots ;
: define-tuple-slots ( class -- ) : define-tuple-slots ( class -- )
dup "slots" word-prop define-accessors ; dup "slots" word-prop over superclass prepare-slots
define-accessors ;
: make-tuple-layout ( class -- layout ) : make-tuple-layout ( class -- layout )
[ ] [ ]
@ -242,7 +246,7 @@ PRIVATE>
: define-tuple-class ( class superclass slots -- ) : define-tuple-class ( class superclass slots -- )
over check-superclass over check-superclass
make-slots over class-size 2 + finalize-slots over prepare-slots
(define-tuple-class) ; (define-tuple-class) ;
M: word (define-tuple-class) M: word (define-tuple-class)