help: change $title to only use with-nesting.

2020-02-14 22:17:41 -08:00 · 2020-02-14 22:17:41 -08:00 · ef23d9ed55
parent 24cc6d88e7
commit ef23d9ed55
1 changed files with 3 additions and 5 deletions
--- a/basis/help/help.factor
+++ b/basis/help/help.factor
@ -129,11 +129,9 @@ M: word set-article-parent swap "help-parent" set-word-prop ;

 : $title ( topic -- )
    title-style get [
-        title-style get [
-            [ ($title) ]
-            [ ($navigation-path) ]
-            [ ($navigation-links) ] tri
-        ] with-style
+        [ ($title) ]
+        [ ($navigation-path) ]
+        [ ($navigation-links) ] tri
    ] with-nesting ;

 : print-topic ( topic -- )