mes: Remove copy of make-string.

[mes.git] / mes / module / mes / guile.mes

diff --git a/mes/module/mes/guile.mes b/mes/module/mes/guile.mes
index 28c4b49acb1d86803550af68025bd9537b011cac..30c9b1dd65a40e7539b587dc2fe3c786e20dc9dc 100644 (file)
--- a/mes/module/mes/guile.mes
+++ b/mes/module/mes/guile.mes
@@ -46,9 +46,6 @@
                                                         (else (error (format #f "not supported: handle-delim=~a" handle-delim))))
                (cons c (loop (read-char port)))))))))
 
-(define (make-string n . fill)
-  (list->string (apply make-list n fill)))
-
 (define (object->string x . rest)
   (with-output-to-string
     (lambda () ((if (pair? rest) (car rest) write) x))))