compat: Add 'get-string-all' for Mes.
* gash/compat/textual-ports.scm [mes] (get-string-all): New procedure.
This commit is contained in:
parent
c6d39caecc
commit
a087816b90
|
@ -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))
|
||||||
|
|
Loading…
Reference in New Issue