Fixing delegate regression

2008-04-30 21:08:18 -05:00 · 2008-04-30 21:08:18 -05:00 · ada6e4ed0b
parent 594f335dfe
commit ada6e4ed0b
1 changed files with 1 additions and 1 deletions
--- a/extra/delegate/delegate.factor
+++ b/extra/delegate/delegate.factor
@ -54,7 +54,7 @@ M: tuple-class group-words
    >r protocol-words r> diff ;

 : forget-old-definitions ( protocol new-wordlist -- )
-    >r users-and-words r>
+    >r [ protocol-users ] [ protocol-words ] bi r>
    swap diff forget-all-methods ;

 : added-words ( protocol wordlist -- added-words )