artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mes: Remove copy of make-string.

Browse source 
* mes/module/mes/guile.mes (make-string): Remove copy.
This commit is contained in:
Jan Nieuwenhuizen 2018-11-14 08:19:01 +01:00
parent 614bfeb3b8
commit 0be3bea141
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 0 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
mes/module/mes/guile.mes
View file

@ -46,9 +46,6 @@
(else (error (format #f "not supported: handle-delim=~a" handle-delim)))) (else (error (format #f "not supported: handle-delim=~a" handle-delim))))
(cons c (loop (read-char port))))))))) (cons c (loop (read-char port)))))))))
(define (make-string n . fill)
(list->string (apply make-list n fill)))
(define (object->string x . rest) (define (object->string x . rest)
(with-output-to-string (with-output-to-string
(lambda () ((if (pair? rest) (car rest) write) x)))) (lambda () ((if (pair? rest) (car rest) write) x))))