From 469cdb60fc18217f1ae85a51dd2c16a1c0117453 Mon Sep 17 00:00:00 2001
From: Timothy Sample <samplet@ngyro.com>
Date: Sun, 13 Nov 2022 22:52:20 -0600
Subject: [PATCH] compat: Add 'string-for-each' for Mes.

* gash/compat.scm [mes] (string-for-each): New procedure.
---
 gash/compat.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gash/compat.scm b/gash/compat.scm
index 2bce7d8..22b793f 100644
--- a/gash/compat.scm
+++ b/gash/compat.scm
@@ -86,6 +86,7 @@
           make-parameter
           parameterize
           set-port-line!
+          string-for-each
           string-concatenate-reverse
           string-every
           string-any
@@ -143,6 +144,9 @@
      ((procedure? pred) pred)
      (else (error "Invalid character predicate."))))
 
+  (define (string-for-each proc str)
+    (for-each proc (string->list str)))
+
   (define (string-every pred str)
     ((@ (srfi srfi-1) every) (char-pred pred) (string->list str)))