missing read_from_chars/2
This commit is contained in:
parent
5c03739525
commit
82ecc61f6d
@ -100,3 +100,14 @@ with_stream(Stream, Goal) :-
|
|||||||
current_output(Stream),
|
current_output(Stream),
|
||||||
call(Goal).
|
call(Goal).
|
||||||
|
|
||||||
|
%% read_from_chars(+Codes, -Term) is det.
|
||||||
|
%
|
||||||
|
% Read Codes into Term.
|
||||||
|
%
|
||||||
|
% @compat The SWI-Prolog version does not require Codes to end
|
||||||
|
% in a full-stop.
|
||||||
|
|
||||||
|
read_from_chars("", end_of_file) :- !.
|
||||||
|
read_from_chars(List, Term) :-
|
||||||
|
atom_to_term(List, Term, _).
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user