1 files changed, 11 insertions, 1 deletions

@@ -2,6 +2,7 @@
 
   (import scheme (chicken base)
           (chicken condition)
+          (only (chicken irregex) irregex-replace/all)
           (chicken string))
 
   (define-syntax define-public
@@ -34,6 +35,15 @@
             (apply alist-walk (cdr kv) (cdr keys)))))))
 
   (define (string-join ss #!optional (sep " "))
-  (string-intersperse ss sep)))
+    (string-intersperse ss sep))
+
+  (define (flush-lines-left lines)
+    (irregex-replace/all '(: bol (* space))
+                         (string-join lines) ""))
+
+  (define (join-lines lines)
+    (apply string-append lines))
+
+  )