From 88bb8c81aa9aca615ba36183c2f9134024dd26a7 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 14 Feb 2008 16:22:42 +0000
Subject: [PATCH] fix stupid module bug I introduced yesterday :(

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

diff --git a/pl/modules.yap b/pl/modules.yap
index 9037a9b6e..20be0588d 100644
--- a/pl/modules.yap
+++ b/pl/modules.yap
@@ -243,7 +243,7 @@ module(N) :-
 %       current module for predicate
 %       head variables.
 '$module_expansion'(V,call(G),call(G),_M,MM,_TM,_,MT) :- var(V), !,
-	(MT = on -> G = MM:V ; G = V).
+	(MT = on -> G = V ; G = MM:V).
 '$module_expansion'((A,B),(A1,B1),(AO,BO),M,MM,TM,HVars,MT) :- !,
 	'$module_expansion'(A,A1,AO,M,MM,TM,HVars,MT),
 	'$module_expansion'(B,B1,BO,M,MM,TM,HVars,MT).