Fix extra/delegate

db4
Slava Pestov 2008-02-04 16:50:15 -06:00
parent b7f1e84eef
commit 37bb75b19b
1 changed files with 1 additions and 1 deletions

View File

@ -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>