FUEL: fix vocabulary list tables.

diff --git a/extra/fuel/help/help.factor b/extra/fuel/help/help.factor
index c3b0fb168dfc77270577bd1def6e4228ecec4e43..6196b356ba49cedbd7231d1cd2f1f7e5fb2bdda1 100644 (file)
--- 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 3a00b70ab1dcb13dc3797b0817e2cacab184ebd0..80fe8e830b6e1fe5a793d1db0f50bc58c024dc70 100644 (file)
--- 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))))