fix [user]. a:a(X). end_of_file.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@193 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
b5882844b8
commit
81487aba82
@ -313,7 +313,7 @@ repeat :- '$repeat'.
|
|||||||
% not 100% compatible with SICStus Prolog, as SICStus Prolog would put
|
% not 100% compatible with SICStus Prolog, as SICStus Prolog would put
|
||||||
% module prefixes all over the place, although unnecessarily so.
|
% module prefixes all over the place, although unnecessarily so.
|
||||||
%
|
%
|
||||||
'$go_compile_clause'(M:G,V,N) :- !,
|
'$go_compile_clause'(Mod:G,V,N) :- !,
|
||||||
'$go_compile_clause'(G,V,N,Mod).
|
'$go_compile_clause'(G,V,N,Mod).
|
||||||
'$go_compile_clause'((M:G :- B),V,N) :- !,
|
'$go_compile_clause'((M:G :- B),V,N) :- !,
|
||||||
'$current_module'(M1),
|
'$current_module'(M1),
|
||||||
|
Reference in New Issue
Block a user