From b578e13509482d71d73b69e81fe3d3733244799c Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 26 Mar 2015 13:46:23 -0400
Subject: [PATCH] Added (make-string)

---
 trans.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/trans.scm b/trans.scm
index f952e338..40b37e75 100644
--- a/trans.scm
+++ b/trans.scm
@@ -178,6 +178,12 @@
                 (return #f)))
             objs)
             #t))))
+  (define (make-string k . fill)
+    (let ((fill* (if (null? fill)
+                    '(#\space)
+                    fill)))
+      (list->string
+        (apply make-list (cons k fill*)))))
   (define (error msg . args)
     (raise (cons msg args)))
   (define (raise obj)