avoid dot

This commit is contained in:
U-vsc-PC\vsc 2013-11-11 10:28:45 +00:00
parent 5e6cc55713
commit a811f56d14

2
pl/load_foreign.yap Normal file → Executable file
View File

@ -96,7 +96,7 @@ open_shared_object(File, Opts, Handle) :-
var(Opts), !,
'$do_error'(instantiation_error,G).
'$open_shared_opts'([], _, 0) :- !.
'$open_shared_opts'(Opt.Opts, G, V) :-
'$open_shared_opts'([Opt|Opts], G, V) :-
'$open_shared_opts'(Opts, G, V0),
'$open_shared_opt'(Opt, G, OptV),
V0 is V \/ OptV.