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

fix a leftover $record 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@879 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2003-09-26 14:58:29 +00:00
parent f5931c5c0e
commit 0170202a86
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/index.c
View File

@ -4119,8 +4119,6 @@ ExpandIndex(PredEntry *ap) {
yamop **labp;
int cb;
extern long long int vsc_count;
printf("vsc_count: %lld\n", vsc_count);
Yap_Error_Size = 0;
if ((cb = setjmp(Yap_CompilerBotch)) == 3) {
restore_machine_regs();

2
pl/consult.yap
View File

@ -264,7 +264,7 @@ add_to_path(New,Pos) :-
'$add_to_path'(Path,Pos).
'$add_to_path'(New,_) :- recorded('$path',New,R), erase(R), fail.
'$add_to_path'(New,last) :- !, '$recordz'('$path',New,_).
'$add_to_path'(New,last) :- !, recordz('$path',New,_).
'$add_to_path'(New,first) :- recorda('$path',New,_).
remove_from_path(New) :- '$check_path'(New,Path),