diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor index ef81a0c953..546f7b15e8 100755 --- a/core/classes/tuple/tuple.factor +++ b/core/classes/tuple/tuple.factor @@ -7,10 +7,6 @@ classes classes.private slots.deprecated slots.private slots compiler.units math.private accessors assocs ; IN: classes.tuple -M: tuple delegate 2 slot ; - -M: tuple set-delegate 2 set-slot ; - M: tuple class 1 slot 2 slot { word } declare ; ERROR: no-tuple-class class ; diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor index 1935c89431..2b1dd3cf9c 100755 --- a/core/kernel/kernel.factor +++ b/core/kernel/kernel.factor @@ -194,12 +194,8 @@ M: callstack clone (clone) ; PRIVATE> ! Deprecated -GENERIC: delegate ( obj -- delegate ) - M: object delegate drop f ; -GENERIC: set-delegate ( delegate tuple -- ) - GENERIC# get-slots 1 ( tuple slots -- ... ) GENERIC# set-slots 1 ( ... tuple slots -- )