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

Remove redundant code

db4
Slava Pestov 2008-04-04 05:09:58 -05:00
parent b040d4d033
commit 9e227d394e
2 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7,10 +7,6 @@ classes classes.private slots.deprecated slots.private slots
compiler.units math.private accessors assocs ; compiler.units math.private accessors assocs ;
IN: classes.tuple IN: classes.tuple
M: tuple delegate 2 slot ;
M: tuple set-delegate 2 set-slot ;
M: tuple class 1 slot 2 slot { word } declare ; M: tuple class 1 slot 2 slot { word } declare ;
ERROR: no-tuple-class class ; ERROR: no-tuple-class class ;

4
core/kernel/kernel.factor
View File

@ -194,12 +194,8 @@ M: callstack clone (clone) ;
PRIVATE> PRIVATE>
! Deprecated ! Deprecated
GENERIC: delegate ( obj -- delegate )
M: object delegate drop f ; M: object delegate drop f ;
GENERIC: set-delegate ( delegate tuple -- )
GENERIC# get-slots 1 ( tuple slots -- ... ) GENERIC# get-slots 1 ( tuple slots -- ... )
GENERIC# set-slots 1 ( ... tuple slots -- ) GENERIC# set-slots 1 ( ... tuple slots -- )