From a26773f9da88f74640a7bbcddfbbcd2281f8c866 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Wed, 22 Mar 2023 17:00:36 +0100 Subject: [PATCH] Fix joining strings. --- table.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/table.scm b/table.scm index 89caad6..08bfff2 100644 --- a/table.scm +++ b/table.scm @@ -164,7 +164,7 @@ ;; Compiled table borders for rendering (define table-borders-lookup (map (lambda (src) - (cons (car src) (apply string-join (cdr src)))) + (cons (car src) (apply string-intersperse (cdr src)))) table-borders-lookup-source)) (define (table->string tbl . args)