From 4cbeb6df399f5912f1052179d5daceb75871cc10 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= Date: Thu, 5 Nov 2015 17:27:20 +0000 Subject: [PATCH] oops.... --- library/system.yap | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/library/system.yap b/library/system.yap index 092e14f3b..6b525293e 100644 --- a/library/system.yap +++ b/library/system.yap @@ -625,9 +625,9 @@ process_inp_stream_for_exec(std, 0, _, L, L) :- !. process_inp_stream_for_exec(pipe(ForWriting), ForReading, _, L, [ForReading|L]) :- var(ForWriting), !, open_pipe_streams(ForReading, ForWriting). process_inp_stream_for_exec(pipe(Stream), _, _, L, L) :- !, - stream_property(Stream, output). + stream_property(Stream, input). process_inp_stream_for_exec(Stream, Stream, _, L, L) :- - stream_property(Stream, output). + stream_property(Stream, put). process_out_stream_for_exec(Error, _, G, L, L) :- var(Error), !, @@ -638,9 +638,9 @@ process_out_stream_for_exec(std, 1, _, L, L) :- !. process_out_stream_for_exec(pipe(ForReading), ForWriting, _, L, [ForWriting|L]) :- var(ForReading), !, open_pipe_streams(ForReading, ForWriting). process_out_stream_for_exec(pipe(Stream), _, _, L, L) :- !, - stream_property(Stream, input). + stream_property(Stream, output). process_out_stream_for_exec(Stream, Stream, _, L, L) :- - stream_property(Stream, input). + stream_property(Stream, output). process_err_stream_for_exec(Error, _, G, L, L) :- var(Error), !, close_temp_streams(L), @@ -650,9 +650,9 @@ process_err_stream_for_exec(std, 2, _, L, L) :- !. process_err_stream_for_exec(pipe(ForReading), ForWriting, _, L, [ForWriting|L]) :- var(ForReading), !, open_pipe_streams(ForReading, ForWriting). process_err_stream_for_exec(pipe(Stream), Stream, _, L, L) :- !, - stream_property(Stream, input). + stream_property(Stream, output). process_err_stream_for_exec(Stream, Stream, _, L, L) :- - stream_property(Stream, input). + stream_property(Stream, output). close_temp_streams([]). close_temp_streams([S|Ss]) :- @@ -813,3 +813,4 @@ tmpdir(TmpDir):- path_separator('\\'):- win, !. path_separator('/'). +