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

fix swi IO predicates.

Browse Source
This commit is contained in:
Vítor Santos Costa 2011-03-09 23:28:30 +00:00
parent d0465f0d7d
commit c52ad77861
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pl/boot.yap
View File

@ -1373,3 +1373,10 @@ b_getval(GlobalVariable, Val) :-
'$do_error'(existence_error(variable, GlobalVariable),b_getval(GlobalVariable, Val)) '$do_error'(existence_error(variable, GlobalVariable),b_getval(GlobalVariable, Val))
). ).
cd(Dir) :- working_directory(_, Dir).
getcwd(Dir) :- working_directory(Dir, Dir).

4
pl/consult.yap
View File

@ -477,10 +477,6 @@ source_file(Mod:Pred, FileName) :-
'$owned_by'(T, Mod, FileName) :- '$owned_by'(T, Mod, FileName) :-
'$owner_file'(T, Mod, FileName). '$owner_file'(T, Mod, FileName).
source_location(FileName, Line) :-
prolog_load_context(file, FileName),
prolog_load_context(term_position,'$stream_position'(_, Line, _, _, _)).
prolog_load_context(_, _) :- prolog_load_context(_, _) :-
nb_getval('$consulting_file',[]), !, fail. nb_getval('$consulting_file',[]), !, fail.
prolog_load_context(directory, DirName) :- prolog_load_context(directory, DirName) :-