diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor index b590826511..64c34d221a 100644 --- a/core/classes/tuple/tuple.factor +++ b/core/classes/tuple/tuple.factor @@ -273,7 +273,6 @@ PRIVATE> : define-tuple-class ( class superclass slots -- ) over check-superclass over prepare-slots - pick reset-final (define-tuple-class) ; GENERIC: make-final ( class -- ) @@ -287,6 +286,7 @@ M: word (define-tuple-class) define-new-tuple-class ; M: tuple-class (define-tuple-class) + pick reset-final 3dup tuple-class-unchanged? [ 2drop ?define-symbol ] [ redefine-tuple-class ] if ;