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

help.markup: Allow \ wrapped related-words.

modern-harvey2
Doug Coleman 2017-08-27 13:34:28 -05:00
parent 6ef39d8b6e
commit c9d2ed1458
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/help/markup/markup.factor
View File

@ -292,14 +292,17 @@ PRIVATE>
"See also" $heading $links ; "See also" $heading $links ;
<PRIVATE <PRIVATE
: ?unwrap ( word/wrapper -- word )
dup wrapper? [ wrapped>> ] when ;
:: update-related-words ( words -- affected-words ) :: update-related-words ( words -- affected-words )
words words |[ affected word | words words |[ affected word |
word "related" [ affected union words ] change-word-prop word ?unwrap "related" [ affected union words ] change-word-prop
] reduce ; ] reduce ;
:: clear-unrelated-words ( words affected-words -- ) :: clear-unrelated-words ( words affected-words -- )
affected-words words diff affected-words words diff
[ "related" [ words diff ] change-word-prop ] each ; [ ?unwrap "related" [ words diff ] change-word-prop ] each ;
: notify-related-words ( affected-words -- ) : notify-related-words ( affected-words -- )
fast-set notify-definition-observers ; fast-set notify-definition-observers ;