use must_be(chars) in read_from_chars/2 (#1305)

This commit is contained in:
Mark Thom
2022-03-05 11:14:24 -07:00
parent 66c209f9e4
commit de35baadf3

View File

@@ -114,17 +114,7 @@ get_single_char(C) :-
read_from_chars(Chars, Term) :- read_from_chars(Chars, Term) :-
( var(Chars) -> must_be(chars, Chars),
instantiation_error(read_from_chars/2)
; nonvar(Term) ->
throw(error(uninstantiation_error(Term), read_from_chars/2))
; '$skip_max_list'(_, _, Chars, Chars0),
Chars0 == [],
partial_string(Chars) ->
true
;
type_error(complete_string, Chars, read_from_chars/2)
),
'$read_term_from_chars'(Chars, Term). '$read_term_from_chars'(Chars, Term).