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

help: sigh, let's just use the old word-help* name.

locals-and-roots
John Benediktsson 2016-05-26 17:40:34 -07:00
parent 773edb680a
commit f2a5a8b4ea
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
basis/help/help.factor
View File

@ -8,11 +8,12 @@ namespaces prettyprint sequences sets sorting vocabs words
words.symbol ; words.symbol ;
IN: help IN: help
<PRIVATE GENERIC: word-help* ( word -- content )
GENERIC: default-word-help ( word -- elements ) : word-help ( word -- content )
dup "help" word-prop [ ] [ word-help* ] ?if ;
M: word default-word-help M: word word-help*
stack-effect [ in>> ] [ out>> ] bi [ stack-effect [ in>> ] [ out>> ] bi [
[ [
dup pair? [ dup pair? [
@ -23,7 +24,7 @@ M: word default-word-help
] { } map>assoc ] { } map>assoc
] bi@ append members \ $values prefix 1array ; ] bi@ append members \ $values prefix 1array ;
M: predicate default-word-help M: predicate word-help*
{ $values { "object" object } { "?" boolean } } { $values { "object" object } { "?" boolean } }
[ [
\ $description , \ $description ,
@ -32,14 +33,7 @@ M: predicate default-word-help
" class." , " class." ,
] { } make 2array ; ] { } make 2array ;
M: class default-word-help drop f ; M: class word-help* drop f ;
PRIVATE>
GENERIC: word-help* ( word -- content )
: word-help ( word -- content )
dup "help" word-prop [ ] [ default-word-help ] ?if ;
: all-articles ( -- seq ) : all-articles ( -- seq )
articles get keys articles get keys