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

help: sigh sigh $predicate is used by help.lint.checks.

locals-and-roots
John Benediktsson 2016-05-26 17:43:29 -07:00
parent f2a5a8b4ea
commit d902616d12
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/help/help.factor
View File

@ -24,14 +24,15 @@ M: word word-help*
] { } map>assoc ] { } map>assoc
] bi@ append members \ $values prefix 1array ; ] bi@ append members \ $values prefix 1array ;
M: predicate word-help* : $predicate ( element -- )
{ $values { "object" object } { "?" boolean } } { { "object" object } { "?" boolean } } $values
[ [
\ $description ,
"Tests if the object is an instance of the " , "Tests if the object is an instance of the " ,
swap "predicating" word-prop <$link> , first "predicating" word-prop <$link> ,
" class." , " class." ,
] { } make 2array ; ] { } make $description ;
M: predicate word-help* \ $predicate swap 2array 1array ;
M: class word-help* drop f ; M: class word-help* drop f ;