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:
parent
fa33648499
commit
8b531d3293
1
C/init.c
1
C/init.c
@ -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
|
||||
}
|
||||
|
||||
|
@ -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).
|
||||
|
||||
|
Reference in New Issue
Block a user