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

More intuitive error message for about

db4
Slava Pestov 2008-02-05 18:50:24 -06:00
parent 20e4fcecda
commit cf99e405fe
1 changed files with 3 additions and 0 deletions
extra/help

3
extra/help/help.factor Normal file → Executable file
View File

@ -96,6 +96,9 @@ M: word set-article-parent swap "help-parent" set-word-prop ;
article-content print-content nl ; article-content print-content nl ;
: about ( vocab -- ) : about ( vocab -- )
dup vocab [ ] [
"No such vocabulary: " swap append throw
] ?if
dup vocab-help [ dup vocab-help [
help help
] [ ] [