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:
vsc 2001-11-23 14:42:06 +00:00
parent b5882844b8
commit 81487aba82

View File

@ -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),