From 8b531d3293af60379f9afbe4626bd660ad6bf412 Mon Sep 17 00:00:00 2001 From: vsc Date: Tue, 18 Jun 2002 05:25:02 +0000 Subject: [PATCH] fix spy of external procedures. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@547 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- C/init.c | 1 - pl/debug.yap | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/C/init.c b/C/init.c index 8eb33caef..2aa54cc71 100644 --- a/C/init.c +++ b/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 } diff --git a/pl/debug.yap b/pl/debug.yap index 86ee7010a..c78219e08 100644 --- a/pl/debug.yap +++ b/pl/debug.yap @@ -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).