From a576779891d09d36407e81ab99592bd474176fde 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 21:57:10 +0200
Subject: [PATCH] Remove string-repeat.

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

diff --git a/src/util-string.scm b/src/util-string.scm
index 6857c71..55980b8 100644
--- a/src/util-string.scm
+++ b/src/util-string.scm
@@ -28,8 +28,6 @@
 (module
  util-string
  (
-  string-repeat
-
   string-first+rest
 
   string-utf8?
@@ -48,15 +46,6 @@
 	 (chicken irregex)
 	 testing)
 
-  ;; Repeats given string.
- (define (string-repeat str rep)
-   (let loop ((rep rep)
-	      (res '()))
-     (if (> rep 0)
-	 (loop (sub1 rep)
-	       (cons str res))
-	 (string-intersperse res ""))))
-
  ;; Extracts first token and the rest as separate string
  (define (string-first+rest str)
    (let ((dm (irregex-search (irregex "[ \\t]" 'u) str)))