mes: Remove copy of make-string.
authorJan Nieuwenhuizen <janneke@gnu.org>
Wed, 14 Nov 2018 07:19:01 +0000 (08:19 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Wed, 14 Nov 2018 07:19:01 +0000 (08:19 +0100)
* mes/module/mes/guile.mes (make-string): Remove copy.

mes/module/mes/guile.mes

index 28c4b49acb1d86803550af68025bd9537b011cac..30c9b1dd65a40e7539b587dc2fe3c786e20dc9dc 100644 (file)
@@ -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))))