Removing "bid" from delegate

db4
Daniel Ehrenberg 2008-05-10 01:14:36 -05:00
parent b38c9f94dc
commit 85627883de
1 changed files with 3 additions and 5 deletions

View File

@ -54,17 +54,15 @@ M: tuple-class group-words
: lost-words ( protocol wordlist -- lost-words )
>r protocol-words r> diff ;
: bid ( x y q r -- qx rxy )
>r swap >r keep r> r> call ; inline
: forget-old-definitions ( protocol new-wordlist -- )
[ protocol-users ] [ lost-words ] bid forget-all-methods ;
[ drop protocol-users ] [ lost-words ] 2bi
forget-all-methods ;
: added-words ( protocol wordlist -- added-words )
swap protocol-words diff ;
: add-new-definitions ( protocol wordlist -- )
[ protocol-consult >alist ] [ added-words ] bid
[ drop protocol-consult >alist ] [ added-words ] 2bi
[ swap first2 consult-method ] cross-2each ;
: initialize-protocol-props ( protocol wordlist -- )