fix spy of external procedures.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@547 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-06-18 05:25:02 +00:00
parent fa33648499
commit 8b531d3293
2 changed files with 1 additions and 2 deletions

View File

@ -1129,7 +1129,6 @@ InitYaamRegs(void)
WokenGoals = NewTimedVar(TermNil);
MutableList = NewTimedVar(TermNil);
AttsMutableList = NewTimedVar(TermNil);
printf("TermNil is %lx and AttsMutableList is %x\n",TermNil, AttsMutableList);
#endif
}

View File

@ -64,7 +64,7 @@
functor(T,A,N),
'$do_suspy'(S, A, N, T, M).
'$do_suspy_predicates_by_name'(A, S, M) :-
'$recorded'('$import','$import'(EM,M,A,N),_), !,
'$recorded'('$import','$import'(EM,M,A,N),_),
functor(T,A,N),
'$do_suspy'(S, A, N, T, EM).