diff options
Diffstat (limited to 'module/hnh/util.scm')
| -rw-r--r-- | module/hnh/util.scm | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/module/hnh/util.scm b/module/hnh/util.scm index b0e6b81a..46557e38 100644 --- a/module/hnh/util.scm +++ b/module/hnh/util.scm @@ -58,7 +58,7 @@ vector-last - ->str ->string ->quoted-string + ->string catch* ) @@ -530,14 +530,9 @@ (define (vector-last v) (vector-ref v (1- (vector-length v)))) -(define (->str any) +(define (->string any) (with-output-to-string (lambda () (display any)))) -(define ->string ->str) - -(define (->quoted-string any) - (with-output-to-string (lambda () (write any)))) - (define-syntax catch* |