diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

replace call to non-existing predicate.

This commit is contained in:
Vítor Santos Costa 2010-08-04 13:04:17 +01:00
parent 032d9f7591
commit f2dff606ef
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pl/yio.yap
View File

@ -389,7 +389,7 @@ open_pipe_streams(P1,P2) :- '$open_pipe_stream'(P1, P2).
fileerrors :- set_value(fileerrors,1).
nofileerrors :- set_value(fileerrors,0).
exists(F) :- '$exists'(F,'$csult').
exists(F) :- access_file(F,'$csult').
see(user) :- !, set_input(user_input).
see(F) :- var(F), !,
@ -1207,4 +1207,5 @@ with_output_to(Output, Command) :-
'$codes_to_chars'(String0, String, String0) :- String0 == String, !.
'$codes_to_chars'(String0, [Code|String], [Char|Chars]) :-
atom_codes(Char, [Code]),
'$codes_to_chars'(String0, String, Chars).
'$codes_to_chars'(String0, String, Chars).