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

fix extra backtracking in consult and friends. 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@48 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-05-29 17:15:18 +00:00
parent 130e2b8bd1
commit 769ea0cfcc
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/boot.yap
View File

@ -866,7 +866,7 @@ break :- '$get_value'('$break',BL), NBL is BL+1,
; ;
throw(error(permission_error(input,stream,Y),consult(X))) throw(error(permission_error(input,stream,Y),consult(X)))
). ).
'$consult'(M:X) :- '$consult'(M:X) :- !,
'$mod_switch'(M,'$consult'(X)). '$mod_switch'(M,'$consult'(X)).
'$consult'(library(X)) :- !, '$consult'(library(X)) :- !,
'$find_in_path'(library(X),Y), '$find_in_path'(library(X),Y),

4
pl/consult.yap
View File

@ -43,7 +43,7 @@ ensure_loaded(V) :-
throw(error(permission_error(input,stream,X),ensure_loaded(X))) throw(error(permission_error(input,stream,X),ensure_loaded(X)))
). ).
'$ensure_loaded'(M:X) :- '$ensure_loaded'(M:X) :- !,
'$mod_switch'(M,'$ensure_loaded'(X)). '$mod_switch'(M,'$ensure_loaded'(X)).
'$ensure_loaded'(library(X)) :- !, '$ensure_loaded'(library(X)) :- !,
'$find_in_path'(library(X),Y), '$find_in_path'(library(X),Y),
@ -105,7 +105,7 @@ reconsult(Fs) :-
; ;
throw(error(permission_error(input,stream,X),reconsult(X))) throw(error(permission_error(input,stream,X),reconsult(X)))
). ).
'$reconsult'(M:X) :- '$reconsult'(M:X) :- !,
'$mod_switch'(M,'$reconsult'(X)). '$mod_switch'(M,'$reconsult'(X)).
'$reconsult'(library(X)) :- !, '$reconsult'(library(X)) :- !,
'$find_in_path'(library(X),Y), '$find_in_path'(library(X),Y),