make sure with_output_to argument is not rewritten.
This commit is contained in:
parent
828f8b07f7
commit
68539ab1e0
@ -191,7 +191,7 @@ goal_expansion(is_stream(A), system:swi_is_stream(A)) :- swi_io.
|
||||
goal_expansion(set_stream(A,B),system:swi_set_stream(A,B)) :- swi_io.
|
||||
% careful: with_output_to/2 requires setting user_output, and this
|
||||
% confuses emulation.
|
||||
%goal_expansion(with_output_to(A,B),system:swi_with_output_to(A,B)) :- swi_io.
|
||||
goal_expansion(with_output_to(A,B),with_output_to(A,B)) :- swi_io.
|
||||
goal_expansion(set_prolog_IO(A,B,C), system:swi_set_prolog_IO(A,B,C)) :- swi_io.
|
||||
goal_expansion(protocol(A), system:swi_protocol(A)) :- swi_io.
|
||||
goal_expansion(protocola(A), system:swi_protocola(A)) :- swi_io.
|
||||
|
Reference in New Issue
Block a user