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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/help/help.factor
View File

@ -172,14 +172,10 @@ help-hook [ [ print-topic ] ] initialize
articles get delete-at ; articles get delete-at ;
: add-article ( article name -- ) : 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 -- ) : remove-word-help ( word -- )
f "help" set-word-prop ; f "help" set-word-prop ;
: set-word-help ( content word -- ) : 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 ;