Core cleanups

TODO.FACTOR.txt

@@ -44,6 +44,7 @@
 
 + ui:
 
+- better help result ranking
 - page scrolling should be timer-based too
 - invoking interactor commands when interactor is busy -- still fucked
   because of grafting and ungrafting

library/modules.factor

@@ -25,7 +25,7 @@ TUPLE: module name files tests modified ;
 
 : modified? ( file module -- ? )
     dupd module-modified hash
-    swap resource-path file-modified < ;
+    swap resource-path file-modified [ < ] [ drop f ] if* ;
 
 : prefix-paths ( name seq -- newseq )
     [ "/" swap append3 ] map-with ;

library/words.factor

@@ -155,10 +155,11 @@ SYMBOL: bootstrapping?
 : xref-words ( -- )
     all-words [ uses ] crossref get build-graph ;
 
+: create-vocab ( name -- vocab )
+    vocabularies get [ nest ] bind ;
+
 : reveal ( word -- )
-    vocabularies get [
-        dup word-name over word-vocabulary nest set-hash
-    ] bind ;
+    dup word-name over word-vocabulary create-vocab set-hash ;
 
 TUPLE: check-create name vocab ;
 : check-create ( name vocab -- name vocab )