From 162f6b4a4c933f49428f8d41ad308dc6e7a9b4d2 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 26 Jun 2022 11:00:35 +0530
Subject: utils: Add string-remove-prefix.

* tissue/utils.scm (string-remove-prefix): New public function.
---
 tissue/utils.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/tissue/utils.scm b/tissue/utils.scm
index 4f865be..c3b3e3a 100644
--- a/tissue/utils.scm
+++ b/tissue/utils.scm
@@ -20,10 +20,15 @@
   #:use-module (rnrs io ports)
   #:use-module (srfi srfi-26)
   #:use-module (ice-9 popen)
-  #:export (call-with-current-directory
+  #:export (string-remove-prefix
+            call-with-current-directory
             get-line-dos-or-unix
             memoize-thunk))
 
+(define (string-remove-prefix prefix str)
+  "Remove PREFIX from STR."
+  (substring str (string-length prefix)))
+
 (define (call-with-current-directory curdir thunk)
   "Call THUNK with current directory set to CURDIR. Restore current
 directory after THUNK returns."
-- 
cgit v1.2.3