tools.crossref: print message if there are no usages
parent
4ec566b15d
commit
7012212708
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue