vocabs.refresh: changing ``changed-vocabs`` to a hash-set.

diff --git a/basis/vocabs/refresh/monitor/monitor.factor b/basis/vocabs/refresh/monitor/monitor.factor
index dcd906a076fbd6a9d22167e4b4ff99cc154be5c7..7e668daac1eab2b35f59e21279b7b4de96553815 100644 (file)
--- a/basis/vocabs/refresh/monitor/monitor.factor
+++ b/basis/vocabs/refresh/monitor/monitor.factor
@@ -62,7 +62,7 @@ TR: convert-separators "/\\" ".." ;
     bi spawn drop ;
 
 : init-vocab-monitor ( -- )
-    H{ } clone changed-vocabs set-global
+    HS{ } clone changed-vocabs set-global
     loaded-vocab-names [ changed-vocab ] each ;
 
 [

diff --git a/basis/vocabs/refresh/refresh.factor b/basis/vocabs/refresh/refresh.factor
index 50b86d9b7996884ac8715bb7efbf0f707070a76a..901becbf0f5f04950cd9e246686524c38802862e 100644 (file)
--- a/basis/vocabs/refresh/refresh.factor
+++ b/basis/vocabs/refresh/refresh.factor
@@ -22,16 +22,16 @@ SYMBOL: changed-vocabs
 
 : changed-vocab ( vocab -- )
     dup lookup-vocab changed-vocabs get and
-    [ dup changed-vocabs get set-at ] [ drop ] if ;
+    [ changed-vocabs get adjoin ] [ drop ] if ;
 
 : mark-unchanged-vocab  ( vocab-name -- )
-    changed-vocabs get delete-at ;
+    changed-vocabs get delete ;
 
 : mark-unchanged-vocabs  ( vocab-names -- )
     [ mark-unchanged-vocab ] each ;
 
 : changed-vocab-by-name? ( vocab -- ? )
-    changed-vocabs get [ key? ] [ drop t ] if* ;
+    changed-vocabs get [ in? ] [ drop t ] if* ;
 
 : (to-refresh) ( vocab-name loaded? path -- ? )
     [