add space before \\item when generating an index table

svn: r14474
This commit is contained in:
Matthew Flatt 2009-04-09 11:43:27 +00:00
parent 4b1f90453c
commit ee8a4308b8

View File

@ -316,7 +316,7 @@
(assoc 'valignment (table-style t)))]) (assoc 'valignment (table-style t)))])
(and p (cdr p))))]) (and p (cdr p))))])
(unless (null? flows) (unless (null? flows)
(when index? (printf "\\item ")) (when index? (printf "\n\\item "))
(unless (eq? 'cont (car flows)) (unless (eq? 'cont (car flows))
(let ([cnt (let loop ([flows (cdr flows)][n 1]) (let ([cnt (let loop ([flows (cdr flows)][n 1])
(cond [(null? flows) n] (cond [(null? flows) n]