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

@@ -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).