From fbd2408260e8339d28f6d2334d4456c38b572efc Mon Sep 17 00:00:00 2001
From: "Jan (janneke) Nieuwenhuizen" <janneke@gnu.org>
Date: Sun, 16 May 2021 13:20:32 +0200
Subject: [PATCH] srfi-13

---
 mes/module/mes/scm.mes | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/mes/module/mes/scm.mes b/mes/module/mes/scm.mes
index d80176bc..db86b5c0 100644
--- a/mes/module/mes/scm.mes
+++ b/mes/module/mes/scm.mes
@@ -254,6 +254,11 @@
      (>= length suffix-length)
      (equal? (substring string (- length suffix-length)) suffix))))
 
+(define (string-drop s n)
+  (cond ((zero? n) s)
+        ((> n 0) (list->string (list-tail (string->list s) n)))
+        (else s (error "string-drop: not supported: (n s)=" (cons n s)))))
+
 (define (string->number s . rest)
   (if (string-prefix? "#x" s) (string->number (string-drop s 2) 16)
       (let ((lst (string->list s)))