From 8517a196f4110376ce769611594cd8692f72dc7c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 23 Jun 2022 04:21:16 +0200
Subject: 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.
---
 module/hnh/util.scm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'module/hnh/util.scm')

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*
-- 
cgit v1.2.3