brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Compatibility layer for table-old style.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-15 16:30:53 +02:00
parent 3da5d55530
commit 0806be2420
3 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/table.scm
View file

@ -41,7 +41,9 @@
racket-kwargs
table-processor
table-border
table-style)
table-style
(only table-old *table-border-style*)
)
(define (print-table . args)
(print (apply table->string args)))
@ -73,7 +75,7 @@
#:border (border-spec '((none ...) ...))
#:widths (widths-spec '(0 ...))
#:width (width #f)
#:unicode? (unicode? #t))
#:unicode? (unicode? (eq? (*table-border-style*) 'unicode)))
(let-values (((ptbl col-widths)
(table-prepare tbl width widths-spec)))
(let* ((num-columns (length (car tbl)))