1 files changed, 9 insertions, 1 deletions
diff --git a/guile/starlet/utils.scm b/guile/starlet/utils.scm
index e1b92a8..e0579ab 100644
--- a/guile/starlet/utils.scm
+++ b/guile/starlet/utils.scm
@@ -41,7 +41,8 @@
             comment
             hash-table-empty?
             lookup
-            add-and-run-hook!))
+            add-and-run-hook!
+            cat-with-spaces))
 
 
 (define (print-hash-table ht)
@@ -179,3 +180,10 @@
 (define (add-and-run-hook! hook proc . initial-args)
   (add-hook! hook proc)
   (apply proc initial-args))
+
+
+(define (cat-with-spaces lst)
+  (reduce
+    (lambda (b a)
+      (string-append a " " b))
+    "" lst))