fix missing variable

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2054 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2008-01-16 09:53:42 +00:00 · 2008-01-16 09:53:42 +00:00 · 2a7d514d3f
commit 2a7d514d3f
parent b677c030de
1 changed files with 2 additions and 1 deletions
--- a/pl/debug.yap
+++ b/pl/debug.yap
@ -48,7 +48,8 @@
 	(
 	  current_predicate(A,M:_)
 	->
-	  M = EM
+	 M = EM,
+	 A = NA
 	;
 	 recorded('$import','$import'(EM,M,GA,_,A,_),_),
 	 functor(GA,NA,_)