make compile module aware.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@670 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
ae570afa71
commit
4326a07f2e
@ -53,6 +53,11 @@ compile(P) :-
|
||||
'$compile'(P).
|
||||
|
||||
% leave compile mode to 1 for native code.
|
||||
'$compile'(M:A) :- !,
|
||||
'$current_module'(M0),
|
||||
'$change_module'(M),
|
||||
'$compile'(A),
|
||||
'$change_module'(M0).
|
||||
'$compile'(A) :-
|
||||
'$compile_mode'(Old,0),
|
||||
'$reconsult'(A),
|
||||
|
Reference in New Issue
Block a user