More intuitive error message for about

2008-02-05 18:50:24 -06:00 · 2008-02-05 18:50:24 -06:00 · cf99e405fe
parent 20e4fcecda
commit cf99e405fe
1 changed files with 3 additions and 0 deletions
--- a/extra/help/help.factor
+++ b/extra/help/help.factor
@ -96,6 +96,9 @@ M: word set-article-parent swap "help-parent" set-word-prop ;
    article-content print-content nl ;

 : about ( vocab -- )
+    dup vocab [ ] [
+        "No such vocabulary: " swap append throw
+    ] ?if
    dup vocab-help [
        help
    ] [