From 85627883de3386e55e0a7cddac4aba3c027f0363 Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Sat, 10 May 2008 01:14:36 -0500 Subject: [PATCH] Removing "bid" from delegate --- extra/delegate/delegate.factor | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/extra/delegate/delegate.factor b/extra/delegate/delegate.factor index 2f35743c61..c375dcf874 100755 --- a/extra/delegate/delegate.factor +++ b/extra/delegate/delegate.factor @@ -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 -- )