From a087816b90e2ff39ee407d3e05a569acbbd76a3c Mon Sep 17 00:00:00 2001
From: Timothy Sample <samplet@ngyro.com>
Date: Thu, 22 Dec 2022 11:45:47 -0600
Subject: [PATCH] compat: Add 'get-string-all' for Mes.

* gash/compat/textual-ports.scm [mes] (get-string-all): New
procedure.
---
 gash/compat/textual-ports.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/gash/compat/textual-ports.scm b/gash/compat/textual-ports.scm
index 8e0c461..05fafd1 100644
--- a/gash/compat/textual-ports.scm
+++ b/gash/compat/textual-ports.scm
@@ -50,7 +50,8 @@
   (export make-soft-port
           get-char
           unget-char
-          lookahead-char)
+          lookahead-char
+          get-string-all)
 
   (define-record-type <soft-input-port>
     (make-soft-input-port thunk buffer)
@@ -90,4 +91,6 @@
   (define (lookahead-char port)
     (let ((result (get-char port)))
       (unget-char port result)
-      result)))
+      result))
+
+  (define get-string-all read-string))