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

fix fixes ;-).

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1499 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2006-01-08 03:16:24 +00:00
parent b881f59a71
commit aaf846389a
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
changes-5.1.html
View File

@ -16,6 +16,7 @@
<h2>Yap-5.1.0:</h2> <h2>Yap-5.1.0:</h2>
<ul> <ul>
<li> FIXED: don't call goal_expand when looking for handlers of undefined procedures. </li>
<li> FIXED: always walk through modules in the same order when waking <li> FIXED: always walk through modules in the same order when waking
up variables (otherwise, breaks CLP(QR)). </li> up variables (otherwise, breaks CLP(QR)). </li>
<li> NEW: SWI-like yap_flag(float_format,_). </li> <li> NEW: SWI-like yap_flag(float_format,_). </li>

2
pl/boot.yap
View File

@ -749,10 +749,12 @@ not(G) :- \+ '$execute'(G).
S \= M, % can't try importing from the module itself. S \= M, % can't try importing from the module itself.
!, !,
'$exit_undefp'. '$exit_undefp'.
/*
'$find_undefp_handler'(G,M,NG,M) :- '$find_undefp_handler'(G,M,NG,M) :-
'$is_expand_goal_or_meta_predicate'(G,M), '$is_expand_goal_or_meta_predicate'(G,M),
'$system_catch'(goal_expansion(G, M, NG), user, _, fail), !, '$system_catch'(goal_expansion(G, M, NG), user, _, fail), !,
'$exit_undefp'. '$exit_undefp'.
*/
'$find_undefp_handler'(G,M,NG,user) :- '$find_undefp_handler'(G,M,NG,user) :-
\+ '$undefined'(unknown_predicate_handler(_,_,_), user), \+ '$undefined'(unknown_predicate_handler(_,_,_), user),
'$system_catch'(unknown_predicate_handler(G,M,NG), user, Error, '$leave_undefp'(Error)), !, '$system_catch'(unknown_predicate_handler(G,M,NG), user, Error, '$leave_undefp'(Error)), !,