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

fix errors messages in boot.yap

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@365 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-02-18 15:05:16 +00:00
parent e9e4421c6d
commit a9783b7ec7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/boot.yap
View File

@ -1033,7 +1033,7 @@ break :- '$get_value'('$break',BL), NBL is BL+1,
'$find_in_path'(File,NewFile,_) :- atom(File), !, '$find_in_path'(File,NewFile,_) :- atom(File), !,
'$search_in_path'(File,NewFile),!. '$search_in_path'(File,NewFile),!.
'$find_in_path'(File,_,Call) :- '$find_in_path'(File,_,Call) :-
throw(error(domain_error(source_sink,File),G)). throw(error(domain_error(source_sink,File),Call)).
'$search_in_path'(New,New) :- '$search_in_path'(New,New) :-
'$exists'(New,'$csult'), !. '$exists'(New,'$csult'), !.