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

remove extra IN:, use dip

db4
Doug Coleman 2008-09-15 10:33:03 -05:00
parent f7c322f83a
commit 7bebe265af
2 changed files with 1 additions and 2 deletions

1
basis/delegate/delegate-docs.factor
View File

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

2
basis/delegate/delegate.factor
View File

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