compat: Add 'get-string-all' for Mes.

* gash/compat/textual-ports.scm [mes] (get-string-all): New procedure.
2022-12-22 11:45:47 -06:00 · 2022-12-22 11:45:47 -06:00 · a087816b90
parent c6d39caecc
commit a087816b90
1 changed files with 5 additions and 2 deletions
--- 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))