Fix load error

2008-03-05 15:23:02 -06:00 · 2008-03-05 15:23:02 -06:00 · 492d7bc646
parent 8da6f2a7f9
commit 492d7bc646
1 changed files with 1 additions and 1 deletions
--- a/extra/delegate/delegate.factor
+++ b/extra/delegate/delegate.factor
@ -39,7 +39,7 @@ M: tuple-class group-words
 : define-mimic ( group mimicker mimicked -- )
    >r >r group-words r> r> [
        pick "methods" word-prop at dup
-        [ method-def spin define-method ] [ 3drop ] if
+        [ "method-def" word-prop spin define-method ] [ 3drop ] if
    ] 2curry each ; 

 : MIMIC: