From 0b383c6fa6f95a0a7498ab138134bfe87080a590 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Sat, 24 Jun 2023 22:00:11 +0200
Subject: [PATCH] Work on removing irelevant parts of util-string.

---
 src/util-string.scm | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/src/util-string.scm b/src/util-string.scm
index 55980b8..ac967ef 100644
--- a/src/util-string.scm
+++ b/src/util-string.scm
@@ -31,7 +31,6 @@
   string-first+rest
 
   string-utf8?
-  string->list/utf8
 
   string->qp
 
@@ -103,12 +102,6 @@
  (define (string-tests!)
    (run-tests
     util-string
-    (test-equal? string-repeat
-		 (string-repeat "-" 4)
-		 "----")
-    (test-equal? string-repeat
-		 (string-repeat "š" 4)
-		 "šššš")
     (test-equal? string-first+rest
 		 (string-first+rest "asdf rest")
 		 '("asdf" . "rest"))