Fix joining strings.

This commit is contained in:
Dominik Pantůček 2023-03-22 17:00:36 +01:00
parent 6eeea2f1f3
commit a26773f9da

View file

@ -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)