steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

help.vocabs: tweak 'not loaded' message some more

db4
Slava Pestov 2009-09-14 16:19:36 -05:00
parent a1dfea7887
commit d772bff8b9
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/help/vocabs/vocabs.factor
View File

@ -228,12 +228,16 @@ C: <vocab-author> vocab-author
] unless-empty ;
: vocab-is-not-loaded ( vocab -- )
"Words" $heading
"You must first load (USE:) this vocab to browse its documentation/words."
"Not loaded" $heading
"You must first load this vocabulary to browse its documentation and words."
print-element vocab-name "USE: " prepend 1array $code ;
: describe-words ( vocab -- )
dup vocab [ words $words ] [ vocab-is-not-loaded ] if ;
{
{ [ dup vocab ] [ words $words ] }
{ [ dup find-vocab-root ] [ vocab-is-not-loaded ] }
[ drop ]
} cond ;
: words. ( vocab -- )
last-element off