From 984a24ab0785bbd6e6ff367ecfdbc918a9262c26 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 19 Feb 2020 21:42:25 -0800
Subject: [PATCH] help: simplify navigation-table.

---
 basis/help/help.factor | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/basis/help/help.factor b/basis/help/help.factor
index 7be11b0a00..75c2d7965c 100644
--- a/basis/help/help.factor
+++ b/basis/help/help.factor
@@ -108,7 +108,9 @@ M: word set-article-parent swap "help-parent" set-word-prop ;
     [ [ article-title ] [ >link ] bi write-object ] ($block) ;
 
 : ($navigation-table) ( element -- )
-    help-path-style get table-style [ $table ] with-variable ;
+    help-path-style get dup [
+        table-style [ $table ] with-variable
+    ] with-style ;
 
 : ($navigation-path) ( topic -- )
     help-path-style get [
@@ -119,13 +121,11 @@ M: word set-article-parent swap "help-parent" set-word-prop ;
     [ prefix 1array ] dip prefix , ;
 
 : ($navigation-links) ( topic -- )
-    help-path-style get [
-        [
-            [ prev-article [ 1array \ $long-link "Prev:" ($navigation-link) ] when* ]
-            [ next-article [ 1array \ $long-link "Next:" ($navigation-link) ] when* ]
-            bi
-        ] { } make [ ($navigation-table) ] unless-empty
-    ] with-style ;
+    [
+        [ prev-article [ 1array \ $long-link "Prev:" ($navigation-link) ] when* ]
+        [ next-article [ 1array \ $long-link "Next:" ($navigation-link) ] when* ]
+        bi
+    ] { } make [ ($navigation-table) ] unless-empty ;
 
 : $title ( topic -- )
     title-style get [