diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

missing ! in module option processing code.:

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1339 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2005-07-06 15:51:01 +00:00
parent 6979a873cc
commit a396b732f7
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pl/modules.yap
View File

@ -127,10 +127,10 @@ use_module(Mod,F,I) :-
'$process_module_decls_options'(Var,Mod) :- '$process_module_decls_options'(Var,Mod) :-
var(Var), var(Var), !,
'$do_error'(instantiation_error,Mod). '$do_error'(instantiation_error,Mod).
'$process_module_decls_options'([],_). '$process_module_decls_options'([],_) :- !.
'$process_module_decls_options'([H|L],M) :- '$process_module_decls_options'([H|L],M) :- !,
'$process_module_decls_option'(H,M), '$process_module_decls_option'(H,M),
'$process_module_decls_options'(L,M). '$process_module_decls_options'(L,M).
'$process_module_decls_options'(T,M) :- '$process_module_decls_options'(T,M) :-
@ -140,11 +140,11 @@ use_module(Mod,F,I) :-
var(Var), var(Var),
'$do_error'(instantiation_error,M). '$do_error'(instantiation_error,M).
'$process_module_decls_option'(At,_) :- '$process_module_decls_option'(At,_) :-
atom(At), atom(At), !,
'$use_module'(At). '$use_module'(At).
'$process_module_decls_option'(library(L),_) :- '$process_module_decls_option'(library(L),_) :- !,
'$use_module'(library(L)). '$use_module'(library(L)).
'$process_module_decls_option'(hidden(Bool),M) :- '$process_module_decls_option'(hidden(Bool),M) :- !,
'$process_hidden_module'(Bool, M). '$process_hidden_module'(Bool, M).
'$process_module_decls_option'(Opt,M) :- '$process_module_decls_option'(Opt,M) :-
'$do_error'(domain_error(module_decl_options,Opt),M). '$do_error'(domain_error(module_decl_options,Opt),M).