From 66fe7f93fb3ebd9d7cec960be0949c3596e20a7c Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 14 Sep 2009 16:19:36 -0500 Subject: [PATCH] help.vocabs: tweak 'not loaded' message some more --- basis/help/vocabs/vocabs.factor | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/basis/help/vocabs/vocabs.factor b/basis/help/vocabs/vocabs.factor index 6e2fd6f278..d8f351f57d 100644 --- a/basis/help/vocabs/vocabs.factor +++ b/basis/help/vocabs/vocabs.factor @@ -228,12 +228,16 @@ C: 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