diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:21:16 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:21:16 +0200 |
| commit | 8517a196f4110376ce769611594cd8692f72dc7c (patch) | |
| tree | d6bf928850ffee9372d86a4587cc0bf6036b8521 /module/hnh | |
| parent | Limit imports in (srfi srfi-41 util). (diff) | |
| download | calp-8517a196f4110376ce769611594cd8692f72dc7c.tar.gz calp-8517a196f4110376ce769611594cd8692f72dc7c.tar.xz | |
Remove ->str and ->quoted-string.
->str as an alias of ->string is removed. ->string is however left.
->quoted-string was always weird, and was only used once.
Diffstat (limited to 'module/hnh')
| -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* |