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

add source_location for SWI compatibility

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-11-23 10:02:40 +00:00
parent d91bab4247
commit b15d9c0363
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/consult.yap
View File

@ -380,6 +380,10 @@ use_module(M,F,Is) :-
'$skip_unix_comments'(_). '$skip_unix_comments'(_).
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) :-