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
This commit is contained in:
parent
06d65a5be7
commit
9cde858f11
@ -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
|
||||
;
|
||||
|
Reference in New Issue
Block a user