Fix extra/delegate

2008-02-04 16:50:15 -06:00 · 2008-02-04 16:50:15 -06:00 · 37bb75b19b
parent b7f1e84eef
commit 37bb75b19b
1 changed files with 1 additions and 1 deletions
--- a/extra/delegate/delegate.factor
+++ b/extra/delegate/delegate.factor
@ -27,7 +27,7 @@ M: tuple-class group-words
    swap [ slot-spec-writer ] map append ;

 : define-consult-method ( word class quot -- )
-    pick add <method> spin define-method ;
+    pick add spin define-method ;

 : define-consult ( class group quot -- )
    >r group-words r>