From d81447526cde6fa98dfa792a65f71acb78ef1398 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Fri, 2 Jul 2021 22:01:59 +0000 Subject: Start work on input/output streams --- stdlib.pl | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'stdlib.pl') diff --git a/stdlib.pl b/stdlib.pl index 7c9d189..4973c3e 100644 --- a/stdlib.pl +++ b/stdlib.pl @@ -69,6 +69,14 @@ member(X, [X|_]). member(X, [_|Tail]) :- member(X, Tail). +% Input output + +open(SourceSink, Mode, Stream) :- + open(SourceSink, Mode, Stream, []). + +close(StreamOrAlias) :- + close(StreamOrAlias, []). + % Standard exceptions instantiation_error :- -- cgit v1.2.3