From 10cb51c031a62fd89b8e338c1c5d71cadeed9b46 Mon Sep 17 00:00:00 2001 From: nicolas-p Date: Fri, 24 Jul 2015 18:50:16 +0200 Subject: [PATCH] help: removing prefix --- basis/help/help.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/basis/help/help.factor b/basis/help/help.factor index 734e16572f..6a56a167f2 100644 --- a/basis/help/help.factor +++ b/basis/help/help.factor @@ -98,18 +98,18 @@ M: word set-article-parent swap "help-parent" set-word-prop ; : ($title) ( topic -- ) [ [ article-title ] [ >link ] bi write-object ] ($block) ; -: $navigation-row ( content element label -- ) - [ prefix 1array ] dip prefix , ; +: $navigation-row ( content element -- ) + prefix 1array , ; : ($navigation-table) ( element -- ) help-path-style get table-style [ $table ] with-variable ; : ($navigation-prev) ( topic -- ) - [ prev-article [ 1array \ $long-link "" $navigation-row ] when* ] + [ prev-article [ 1array \ $long-link $navigation-row ] when* ] { } make [ ($navigation-table) ] unless-empty ; : ($navigation-next) ( topic -- ) - [ next-article [ 1array \ $long-link "" $navigation-row ] when* ] + [ next-article [ 1array \ $long-link $navigation-row ] when* ] { } make [ ($navigation-table) ] unless-empty ; : ($navigation-path) ( topic -- )