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 59b298c2425791f93ce4a3531d2f0b0855501985..677375a97087342aebda13cb5d20a66ccf052a95 100755 (executable)
--- a/extra/delegate/delegate.factor
+++ b/extra/delegate/delegate.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2007 Daniel Ehrenberg
 ! See http://factorcode.org/license.txt for BSD license.
 USING: parser generic kernel classes words slots assocs sequences arrays
-vectors definitions prettyprint combinators.lib math hashtables ;
+vectors definitions prettyprint combinators.lib math hashtables sets ;
 IN: delegate
 
 : protocol-words ( protocol -- words )
@@ -51,14 +51,14 @@ M: tuple-class group-words
     protocol-consult keys ;
 
 : lost-words ( protocol wordlist -- lost-words )
-    >r protocol-words r> seq-diff ;
+    >r protocol-words r> diff ;
 
 : forget-old-definitions ( protocol new-wordlist -- )
     values [ drop protocol-users ] [ lost-words ] 2bi
     forget-all-methods ;
 
 : added-words ( protocol wordlist -- added-words )
-    swap protocol-words seq-diff ;
+    swap protocol-words diff ;
 
 : add-new-definitions ( protocol wordlist -- )
      dupd added-words >r protocol-consult >alist r>