Merge branch 'master' of git://factorcode.org/git/factor

[factor.git] / extra / delegate / delegate.factor

diff --git a/extra/delegate/delegate.factor b/extra/delegate/delegate.factor
index 677375a97087342aebda13cb5d20a66ccf052a95..59e2210ae0f3c23a4e8d4ce12c4eff069497eac5 100755 (executable)
--- a/extra/delegate/delegate.factor
+++ b/extra/delegate/delegate.factor
@@ -54,11 +54,11 @@ M: tuple-class group-words
     >r protocol-words r> diff ;
 
 : forget-old-definitions ( protocol new-wordlist -- )
-    values [ drop protocol-users ] [ lost-words ] 2bi
-    forget-all-methods ;
+    >r users-and-words r>
+    swap diff forget-all-methods ;
 
 : added-words ( protocol wordlist -- added-words )
-    swap protocol-words diff ;
+    swap protocol-words swap diff ;
 
 : add-new-definitions ( protocol wordlist -- )
      dupd added-words >r protocol-consult >alist r>