fix missing variable

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2054 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-01-16 09:53:42 +00:00
parent b677c030de
commit 2a7d514d3f

View File

@ -48,7 +48,8 @@
( (
current_predicate(A,M:_) current_predicate(A,M:_)
-> ->
M = EM M = EM,
A = NA
; ;
recorded('$import','$import'(EM,M,GA,_,A,_),_), recorded('$import','$import'(EM,M,GA,_,A,_),_),
functor(GA,NA,_) functor(GA,NA,_)