remove extra IN:, use dip
parent
f7c322f83a
commit
7bebe265af
|
@ -45,5 +45,4 @@ $nl
|
|||
{ $subsection define-consult }
|
||||
"The " { $vocab-link "delegate.protocols" } " vocabulary defines formal protocols for the various informal protocols used in the Factor core, such as " { $link "sequence-protocol" } ", " { $link "assocs-protocol" } " or " { $link "stream-protocol" } ;
|
||||
|
||||
IN: delegate
|
||||
ABOUT: { "delegate" "intro" }
|
||||
|
|
|
@ -62,7 +62,7 @@ M: tuple-class group-words
|
|||
protocol-consult keys ;
|
||||
|
||||
: lost-words ( protocol wordlist -- lost-words )
|
||||
>r protocol-words r> diff ;
|
||||
[ protocol-words ] dip diff ;
|
||||
|
||||
: forget-old-definitions ( protocol new-wordlist -- )
|
||||
[ drop protocol-users ] [ lost-words ] 2bi
|
||||
|
|
Loading…
Reference in New Issue