Fix joining strings.
This commit is contained in:
parent
6eeea2f1f3
commit
a26773f9da
1 changed files with 1 additions and 1 deletions
|
@ -164,7 +164,7 @@
|
||||||
;; Compiled table borders for rendering
|
;; Compiled table borders for rendering
|
||||||
(define table-borders-lookup
|
(define table-borders-lookup
|
||||||
(map (lambda (src)
|
(map (lambda (src)
|
||||||
(cons (car src) (apply string-join (cdr src))))
|
(cons (car src) (apply string-intersperse (cdr src))))
|
||||||
table-borders-lookup-source))
|
table-borders-lookup-source))
|
||||||
|
|
||||||
(define (table->string tbl . args)
|
(define (table->string tbl . args)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue