From f59cc22c5d0c0226405043c29ea678987de4637e Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 10 Feb 2003 18:23:42 +0000
Subject: [PATCH] module processing should also send the sources back.

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

diff --git a/pl/modules.yap b/pl/modules.yap
index 8b1fb91b6..50821ee14 100644
--- a/pl/modules.yap
+++ b/pl/modules.yap
@@ -423,11 +423,11 @@ module(N) :-
 	'$system_predicate'(G,M), !,
 	'$c_built_in'(G,M,Gi),
 	(Gi \== G ->
-	   '$module_expansion'(Gi,G1,G2,M,CM,TM,HVars) ;
+	   '$module_expansion'(Gi,Gi,G2,M,CM,TM,HVars) ;
 	 TM = M ->
-	    G2 = G
+	    G2 = G, G1 = G,
 	;
-	    G2 = M:G % atts:
+	    G2 = M:G, G1 = M:G % atts:
 	).
 '$complete_goal_expansion'(G, Mod, _, Mod, G, G, _) :- !.
 '$complete_goal_expansion'(G, GMod, _, _, GMod:G, GMod:G, _).