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

Fix MIMIC:

db4
Slava Pestov 2008-02-05 16:35:42 -06:00
parent ba1a958a32
commit 50484f3e69
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/delegate/delegate.factor
View File

@ -39,7 +39,7 @@ M: tuple-class group-words
: define-mimic ( group mimicker mimicked -- ) : define-mimic ( group mimicker mimicked -- )
>r >r group-words r> r> [ >r >r group-words r> r> [
pick "methods" word-prop at dup pick "methods" word-prop at dup
[ method-def <method> spin define-method ] [ 3drop ] if [ method-def spin define-method ] [ 3drop ] if
] 2curry each ; ] 2curry each ;
: MIMIC: : MIMIC: