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

'about' now requires first

db4
Slava Pestov 2008-02-08 01:08:52 -06:00
parent f67ab9a689
commit 492e569b62
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/help/help.factor
View File

@ -1,10 +1,10 @@
! Copyright (C) 2005, 2007 Slava Pestov. ! Copyright (C) 2005, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays io kernel namespaces parser prettyprint sequences USING: arrays io kernel namespaces parser prettyprint sequences
words assocs definitions generic quotations effects words assocs definitions generic quotations effects slots
slots continuations tuples debugger combinators continuations tuples debugger combinators vocabs help.stylesheet
vocabs help.stylesheet help.topics help.crossref help.markup help.topics help.crossref help.markup sorting classes
sorting classes ; vocabs.loader ;
IN: help IN: help
GENERIC: word-help* ( word -- content ) GENERIC: word-help* ( word -- content )
@ -96,6 +96,7 @@ 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 require
dup vocab [ ] [ dup vocab [ ] [
"No such vocabulary: " swap append throw "No such vocabulary: " swap append throw
] ?if ] ?if