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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/delegate/delegate.factor
View File

@ -27,7 +27,7 @@ M: tuple-class group-words
swap [ slot-spec-writer ] map append ; swap [ slot-spec-writer ] map append ;
: define-consult-method ( word class quot -- ) : define-consult-method ( word class quot -- )
pick add <method> spin define-method ; pick add spin define-method ;
: define-consult ( class group quot -- ) : define-consult ( class group quot -- )
>r group-words r> >r group-words r>