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

help: move predicate default word help.

locals-and-roots
John Benediktsson 2016-05-26 17:35:37 -07:00
parent fba27d66e4
commit 773edb680a
1 changed files with 10 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
basis/help/help.factor
View File

@ -23,6 +23,15 @@ 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
{ $values { "object" object } { "?" boolean } }
[
\ $description ,
"Tests if the object is an instance of the " ,
swap "predicating" word-prop <$link> ,
" class." ,
] { } make 2array ;
M: class default-word-help drop f ; M: class default-word-help drop f ;
PRIVATE> PRIVATE>
@ -30,25 +39,7 @@ PRIVATE>
GENERIC: word-help* ( word -- content ) GENERIC: word-help* ( word -- content )
: word-help ( word -- content ) : word-help ( word -- content )
dup "help" word-prop [ ] [ dup "help" word-prop [ ] [ default-word-help ] ?if ;
dup word-help* [
swap 2array 1array
] [
default-word-help
] if*
] ?if ;
: $predicate ( element -- )
{ { "object" object } { "?" boolean } } $values
[
"Tests if the object is an instance of the " ,
first "predicating" word-prop <$link> ,
" class." ,
] { } make $description ;
M: word word-help* drop f ;
M: predicate word-help* drop \ $predicate ;
: all-articles ( -- seq ) : all-articles ( -- seq )
articles get keys articles get keys