From 9cde858f11a264376bc5a166696374bc0a17721d Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 13 Feb 2003 12:41:35 +0000
Subject: [PATCH] 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 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/pl/modules.yap b/pl/modules.yap
index 6d58e5681..7925dc106 100644
--- a/pl/modules.yap
+++ b/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
 	;