From: Markus Triska <triska@metalevel.at>
Date: Sat, 24 Jun 2023 09:48:28 +0000 (+0200)
Subject: another case of "read" --> "get", for an only internally used predicate
X-Git-Tag: v0.9.2~120^2
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=9bc3757a9e48e9fca4ae61627db0a92864eb43b1;p=scryer-prolog.git

another case of "read" --> "get", for an only internally used predicate
---

diff --git a/src/lib/charsio.pl b/src/lib/charsio.pl
index 0b69ca26..1fc120f0 100644
--- a/src/lib/charsio.pl
+++ b/src/lib/charsio.pl
@@ -299,17 +299,17 @@ get_line_to_chars(Stream, Cs0, Cs) :-
 get_n_chars(Stream, N, Cs) :-
         can_be(integer, N),
         (   var(N) ->
-            read_to_eof(Stream, Cs),
+            get_to_eof(Stream, Cs),
             length(Cs, N)
         ;   N >= 0,
             '$get_n_chars'(Stream, N, Cs)
         ).
 
-read_to_eof(Stream, Cs) :-
+get_to_eof(Stream, Cs) :-
         '$get_n_chars'(Stream, 512, Cs0),
         (   Cs0 == [] -> Cs = []
         ;   partial_string(Cs0, Cs, Rest),
-            read_to_eof(Stream, Rest)
+            get_to_eof(Stream, Rest)
         ).
 
 %% chars_base64(?Chars, ?Base64, +Options).