24 lines
488 B
Factor
24 lines
488 B
Factor
|
IN: help
|
||
|
|
USING: arrays kernel namespaces words ;
|
||
|
|
|
||
|
|
! Word help
|
||
|
|
M: word article-title word-name ;
|
||
|
|
|
||
|
|
: word-help ( word -- )
|
||
|
|
dup "help" word-prop [
|
||
|
|
% drop
|
||
|
|
] [
|
||
|
|
dup "predicating" word-prop [
|
||
|
|
\ $predicate swap 2array ,
|
||
|
|
] [
|
||
|
|
"No documentation found for " , word-name , "." ,
|
||
|
|
] ?if
|
||
|
|
] if* ;
|
||
|
|
|
||
|
|
M: word article-content
|
||
|
|
[
|
||
|
|
\ $synopsis over 2array ,
|
||
|
|
dup word-help
|
||
|
|
\ $definition swap 2array ,
|
||
|
|
] { } make ;
|