help.markup: missed a spot for unwrapping.

locals-and-roots
Doug Coleman 2016-06-06 12:49:24 -07:00
parent d30e56e433
commit 153239ada6
1 changed files with 6 additions and 2 deletions

View File

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