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
basis/help/vocabs

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

@ -228,12 +228,16 @@ C: <vocab-author> vocab-author
] unless-empty ; ] unless-empty ;
: vocab-is-not-loaded ( vocab -- ) : vocab-is-not-loaded ( vocab -- )
"Words" $heading "Not loaded" $heading
"You must first load (USE:) this vocab to browse its documentation/words." "You must first load this vocabulary to browse its documentation and words."
print-element vocab-name "USE: " prepend 1array $code ; print-element vocab-name "USE: " prepend 1array $code ;
: describe-words ( vocab -- ) : 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 -- ) : words. ( vocab -- )
last-element off last-element off