make sure that even if we optimise builtins in a predicate, source

code will still see the original.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@772 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

pl/modules.yap

@@ -423,7 +423,9 @@ module(N) :-
 	'$system_predicate'(G,M), !,
 	'$c_built_in'(G,M,Gi),
 	(Gi \== G ->
-	   '$module_expansion'(Gi,Gi,G2,M,CM,TM,HVars)
+	   '$module_expansion'(Gi,_,G2,M,CM,TM,HVars),
+	    % make built-in processing transparent.
+	    (TM = M -> G1 = G ; G1 = M:G)
 	 ; TM = M ->
 	    G2 = G, G1 = G
 	;