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

prolog_file_name/2 was missing

Browse Source
This commit is contained in:
Costa Vitor 2009-07-01 12:11:33 -05:00
parent cd2902f0d8
commit 5d966928b9
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
pl/yio.yap
View File

@ -520,8 +520,7 @@ nl(Stream) :- '$put'(Stream,10).
nl :- current_output(Stream), '$put'(Stream,10), fail. nl :- current_output(Stream), '$put'(Stream,10), fail.
nl. nl.
write(T) :- write(T) :- '$write'(4, T).
'$write'(4, T).
writeln(T) :- writeln(T) :-
'$write'(4, T), '$write'(4, T),
@ -1114,3 +1113,13 @@ stream_position_data(byte_count, '$stream_position'(Data,_,_,_,_), Data).
nb_setval('$open_expands_filename',false). nb_setval('$open_expands_filename',false).
'$set_default_expand'(V) :- !, '$set_default_expand'(V) :- !,
'$do_error'(domain_error(flag_value,V),yap_flag(open_expands_file_name,X)). '$do_error'(domain_error(flag_value,V),yap_flag(open_expands_file_name,X)).
prolog_file_name(File, PrologFileName) :-
var(File), !,
'$do_error'(instantiation_error, prolog_file_name(File, PrologFileName)).
prolog_file_name(user, Out) :- !, Out = user.
prolog_file_name(File, PrologFileName) :-
atom(File), !,
system:true_file_name(File, PrologFileName).
prolog_file_name(File, PrologFileName) :-
'$do_error'(type_error(atom,T), prolog_file_name(File, PrologFileName)).