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

fix reconsult at boot.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@362 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-02-14 19:36:12 +00:00
parent e74b412591
commit 87532119c6
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
changes4.3.html
View File

@ -16,6 +16,8 @@
<h2>Yap-4.3.21:</h2> <h2>Yap-4.3.21:</h2>
<ul> <ul>
<li>FIXED: g(X) :- (Z is 2*X; a(Z)) Z cannot be seen as a free
var. (Nicos Angelopoulos).</li>
<li>FIXED: atom_concat was not allocating heap correctly (Nicos Angelopoulos).</li> <li>FIXED: atom_concat was not allocating heap correctly (Nicos Angelopoulos).</li>
<li>NEW: ord_intersection/4 (Nicos Angelopoulos).</li> <li>NEW: ord_intersection/4 (Nicos Angelopoulos).</li>
<li>NEW: file_search_path/2 (Nicos Angelopoulos).</li> <li>NEW: file_search_path/2 (Nicos Angelopoulos).</li>

4
pl/consult.yap
View File

@ -187,8 +187,8 @@ reconsult(Fs) :-
; ;
'$set_value'('$verbose',off) '$set_value'('$verbose',off)
), ),
'$find_in_path'(X,Y,reconsult(X)), ( '$find_in_path'(X,Y,reconsult(X)),
( '$open'(Y,'$csult',Stream,0), !, '$open'(Y,'$csult',Stream,0) ->
'$record_loaded'(Stream), '$record_loaded'(Stream),
( '$access_yap_flags'(15, 0) -> true ; '$skip_unix_comments'(Stream) ), ( '$access_yap_flags'(15, 0) -> true ; '$skip_unix_comments'(Stream) ),
'$reconsult'(X,Stream), '$close'(Stream) '$reconsult'(X,Stream), '$close'(Stream)