From 2ea16c25127db824f808af4825588fa148fef939 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 10 Dec 2001 04:56:44 +0000
Subject: [PATCH] fix a(X) :- m:X.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@219 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/modules.yap | 1 +
 1 file changed, 1 insertion(+)

diff --git a/pl/modules.yap b/pl/modules.yap
index 1a5f8a42b..aa35ea5e1 100644
--- a/pl/modules.yap
+++ b/pl/modules.yap
@@ -362,6 +362,7 @@ module(N) :-
 % if I don't know what the module is, I cannot do anything to the goal,
 % so I just put a call for later on.
 '$module_expansion'(M:G,call(M:G),call(M:G),_,_,_,_) :- var(M), !.
+'$module_expansion'(M:G,call(M:G),call(M:G),_,_,_,_) :- var(G), !.
 % if M1 is given explicitly process G within M1's context.
 '$module_expansion'(M:G,G1,GO,_Mod,_MM,TM,HVars) :- !,
 	% is this imported from some other module M1?