Fix unwanted wrapping.

This commit is contained in:
Dominik Pantůček 2023-06-15 21:52:52 +02:00
parent 97dd257780
commit 7335f86bb9
3 changed files with 16 additions and 9 deletions

View file

@ -75,7 +75,8 @@
#:border (border-spec '((none ...) ...))
#:widths (widths-spec '(0 ...))
#:width (width #f)
#:unicode? (unicode? (eq? (*table-border-style*) 'unicode))
#:border-style (border-style (*table-border-style*))
#:unicode? (unicode? (eq? border-style 'unicode))
#:ansi-reset? (ansi-reset? #f))
(let-values (((ptbl col-widths)
(table-prepare tbl width widths-spec)))