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

help: minor change to use a default-word-help generic.

locals-and-roots
John Benediktsson 2016-05-26 16:54:33 -07:00
parent e38caddb30
commit fba27d66e4
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/help/help.factor
View File

@ -10,7 +10,9 @@ IN: help
<PRIVATE <PRIVATE
: default-word-help ( word -- elements ) GENERIC: default-word-help ( word -- elements )
M: word default-word-help
stack-effect [ in>> ] [ out>> ] bi [ stack-effect [ in>> ] [ out>> ] bi [
[ [
dup pair? [ dup pair? [
@ -21,17 +23,19 @@ IN: help
] { } map>assoc ] { } map>assoc
] bi@ append members \ $values prefix 1array ; ] bi@ append members \ $values prefix 1array ;
M: class default-word-help drop f ;
PRIVATE> 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 [ ] [
dup word-help* dup [ dup word-help* [
swap 2array 1array swap 2array 1array
] [ ] [
drop dup class? [ drop f ] [ default-word-help ] if default-word-help
] if ] if*
] ?if ; ] ?if ;
: $predicate ( element -- ) : $predicate ( element -- )