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

Commented out the definition of the predicate prolog_to_os_filename/2, now a built-in predicate, in order to fix CHR compilation.

This commit is contained in:
Paulo Moura 2010-11-27 00:13:00 +00:00
parent 471cc93f6c
commit f604df8fec
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/dialect/swi.yap
View File

@ -224,7 +224,7 @@ goal_expansion(rename_file(A,B),system:swi_rename_file(A,B)) :- swi_io.
goal_expansion(is_absolute_file_name(A), is_absolute_file_name(A)) :- swi_io.
goal_expansion(file_base_name(A,B),system:swi_file_base_name(A,B)) :- swi_io.
goal_expansion(file_directory_name(A,B),system:swi_file_directory_name(A,B)) :- swi_io.
goal_expansion(prolog_to_os_filename(A,B),system:swi_prolog_to_os_filename(A,B)) :- swi_io.
%goal_expansion(prolog_to_os_filename(A,B),system:swi_prolog_to_os_filename(A,B)) :- swi_io.
goal_expansion('$mark_executable'(A), system:'swi_is_absolute_file_name'(A)) :- swi_io.
goal_expansion('$absolute_file_name'(A,B),system:'swi_$absolute_file_name'(A,B)) :- swi_io.
@ -281,7 +281,7 @@ concat_atom(List, New) :-
setenv(X,Y) :- unix(putenv(X,Y)).
prolog_to_os_filename(X,X).
%prolog_to_os_filename(X,X).
is_absolute_file_name(X) :-
absolute_file_name(X,X).