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

delegate: Rename consult-method.

db4
Doug Coleman 2013-03-23 16:51:26 -07:00
parent 50bf20bca4
commit 031543fed3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/delegate/delegate.factor
View File

@ -72,7 +72,7 @@ M: broadcast (consult-method-quot)
[ second [ [ dip ] curry ] times ] [ first ] bi
(consult-method-quot) ;
: consult-method ( word consultation -- )
: define-consult-method ( word consultation -- )
[ create-consult-method ]
[ swap consult-method-quot ] 2bi
define ;
@ -85,7 +85,7 @@ M: broadcast (consult-method-quot)
'[ [ _ _ ] dip ?set-at ] change-word-prop ;
: consult-methods ( consultation -- )
[ consult-method ] each-generic ;
[ define-consult-method ] each-generic ;
: unregister-consult ( consultation -- )
[ class>> ] [ group>> ] bi
@ -142,7 +142,7 @@ M: consultation forget*
: add-new-definitions ( protocol wordlist -- )
[ drop protocol-consult values ] [ added-words ] 2bi
[ swap consult-method ] cartesian-each ;
[ swap define-consult-method ] cartesian-each ;
: initialize-protocol-props ( protocol wordlist -- )
[