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

Remove old util-kwargs, replace with Racket-compatible define*/lambda* forms.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-25 14:43:01 +02:00
parent d24526b765
commit 963d3069e9
6 changed files with 399 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/table.scm
View file

@ -44,7 +44,7 @@
testing
util-list
util-string
util-kwargs)
racket-kwargs)
;; Default table border style to use if not explicitly specified.
(define *table-border-style* (make-parameter 'unicode))
@ -273,14 +273,14 @@
(if tb (sref 3) "")))
;; Converts given table to a list of strings suitable for printing.
(define-kwproc (table->list tbl
(#:table-border table-border)
(#:row-border row-border)
(#:col-border column-border)
(#:row0-border row0-border)
(#:col0-border col0-border)
(#:border-style border-style (*table-border-style*))
(#:ansi ansi?))
(define* (table->list tbl
#:table-border (table-border #f)
#:row-border (row-border #f)
#:col-border (column-border #f)
#:row0-border (row0-border #f)
#:col0-border (col0-border #f)
#:border-style (border-style (*table-border-style*))
#:ansi (ansi? #f))
(let ((table (table-prepare tbl)))
(if (or (null? tbl)
(null? (car tbl)))