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

* gash/compat/textual-ports.scm [mes] (get-string-all): New
procedure.
This commit is contained in:
Timothy Sample 2022-12-22 11:45:47 -06:00
parent c6d39caecc
commit a087816b90
1 changed files with 5 additions and 2 deletions

View File

@ -50,7 +50,8 @@
(export make-soft-port (export make-soft-port
get-char get-char
unget-char unget-char
lookahead-char) lookahead-char
get-string-all)
(define-record-type <soft-input-port> (define-record-type <soft-input-port>
(make-soft-input-port thunk buffer) (make-soft-input-port thunk buffer)
@ -90,4 +91,6 @@
(define (lookahead-char port) (define (lookahead-char port)
(let ((result (get-char port))) (let ((result (get-char port)))
(unget-char port result) (unget-char port result)
result))) result))
(define get-string-all read-string))