From 42fc636abcf8b38e9e1d46c34010867093e86e0a Mon Sep 17 00:00:00 2001 From: "Jose A. Ortega Ruiz" Date: Sat, 7 Mar 2009 14:21:23 +0100 Subject: [PATCH] FUEL: fix vocabulary list tables. --- extra/fuel/help/help.factor | 2 +- misc/fuel/fuel-markup.el | 5 ++--- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/extra/fuel/help/help.factor b/extra/fuel/help/help.factor index c3b0fb168d..6196b356ba 100644 --- a/extra/fuel/help/help.factor +++ b/extra/fuel/help/help.factor @@ -48,7 +48,7 @@ SYMBOL: $doc-path ] { } make 3array ; : fuel-vocab-help-row ( vocab -- element ) - [ drop "" ] [ vocab-name ] [ summary ] tri 3array ; + [ vocab-name ] [ summary ] bi 2array ; : fuel-vocab-help-root-heading ( root -- element ) [ "Children from " prepend ] [ "Other children" ] if* \ $heading swap 2array ; diff --git a/misc/fuel/fuel-markup.el b/misc/fuel/fuel-markup.el index 3a00b70ab1..80fe8e830b 100644 --- a/misc/fuel/fuel-markup.el +++ b/misc/fuel/fuel-markup.el @@ -335,9 +335,8 @@ (defun fuel-markup--vocab-list (e) (let ((rows (mapcar '(lambda (elem) - (list (car elem) - (list '$vocab-link (cadr elem)) - (caddr elem))) + (list (list '$vocab-link (car elem)) + (cadr elem))) (cdr e)))) (fuel-markup--table (cons '$table rows))))