tools.crossref: print message if there are no usages

2009-09-23 22:50:26 -05:00 · 2009-09-23 22:50:26 -05:00 · 7012212708
parent 4ec566b15d
commit 7012212708
1 changed files with 2 additions and 1 deletions
--- a/basis/tools/crossref/crossref.factor
+++ b/basis/tools/crossref/crossref.factor
@ -105,7 +105,8 @@ M: f smart-usage drop \ f smart-usage ;
    synopsis-alist sort-keys definitions. ;

 : usage. ( word -- )
-    smart-usage sorted-definitions. ;
+    smart-usage
+    [ "No usages." print ] [ sorted-definitions. ] if-empty ;

 : vocab-xref ( vocab quot -- vocabs )
    [ [ vocab-name ] [ words [ generic? not ] filter ] bi ] dip map