imake sure we use current encoding when opening pipes...

This commit is contained in:
Vitor Santos Costa 2012-10-28 22:27:27 +00:00
parent eb79049bdb
commit 68547e1abf

View File

@ -116,7 +116,10 @@ open_pipe_streams(Read, Write) :-
; ;
true true
), ),
unix:pipe(Read, Write). unix:pipe(Read, Write),
yap_flag(encoding, X),
set_stream(Read, encoding(X) ),
set_stream(Write, encoding(X) ).
fileerrors :- '$swi_set_prolog_flag'(fileerrors, true). fileerrors :- '$swi_set_prolog_flag'(fileerrors, true).