help.vocabs: tweaked the vocab-not-loaded msg

db4
Keith Lazuka 2009-09-14 14:27:30 -04:00
parent fad3d47a8b
commit b6d57a4d19
1 changed files with 3 additions and 4 deletions
basis/help/vocabs

View File

@ -228,10 +228,9 @@ C: <vocab-author> vocab-author
] unless-empty ;
: vocab-is-not-loaded ( vocab -- )
"Attention" $heading
vocab-name dup "The " " vocabulary is not loaded. In order to browse "
"its documentation, you must first load it." append surround print-element
"USE: " prepend 1array $code ;
"Words" $heading
"You must first load (USE:) this vocab to browse its documentation/words."
print-element vocab-name "USE: " prepend 1array $code ;
: describe-words ( vocab -- )
dup vocab [ words $words ] [ vocab-is-not-loaded ] if ;