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

classes.tuple: fix screwup

db4
Slava Pestov 2010-02-18 03:00:43 +13:00
parent ff172f4132
commit c4c14c7ceb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -273,7 +273,6 @@ PRIVATE>
: define-tuple-class ( class superclass slots -- ) : define-tuple-class ( class superclass slots -- )
over check-superclass over check-superclass
over prepare-slots over prepare-slots
pick reset-final
(define-tuple-class) ; (define-tuple-class) ;
GENERIC: make-final ( class -- ) GENERIC: make-final ( class -- )
@ -287,6 +286,7 @@ M: word (define-tuple-class)
define-new-tuple-class ; define-new-tuple-class ;
M: tuple-class (define-tuple-class) M: tuple-class (define-tuple-class)
pick reset-final
3dup tuple-class-unchanged? 3dup tuple-class-unchanged?
[ 2drop ?define-symbol ] [ redefine-tuple-class ] if ; [ 2drop ?define-symbol ] [ redefine-tuple-class ] if ;