Start work on input/output streams

1 files changed, 8 insertions, 0 deletions

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 :-