help: simplify.

locals-and-roots
John Benediktsson 2016-03-20 14:39:13 -07:00
parent 4d2baf5d50
commit a067b13311
1 changed files with 2 additions and 6 deletions

View File

@ -172,14 +172,10 @@ help-hook [ [ print-topic ] ] initialize
articles get delete-at ;
: add-article ( article name -- )
[ remove-article ] keep
[ articles get set-at ] keep
xref-article ;
[ articles get set-at ] keep xref-article ;
: remove-word-help ( word -- )
f "help" set-word-prop ;
: set-word-help ( content word -- )
[ remove-word-help ] keep
[ swap "help" set-word-prop ] keep
xref-article ;
[ swap "help" set-word-prop ] keep xref-article ;