fix unnecessary choicepoint in [a].

This commit is contained in:
Vitor Santos Costa 2010-03-09 22:00:46 +00:00
parent dd3645b5c8
commit bb3c837ec5

View File

@ -43,7 +43,7 @@ load_files(Files,Opts) :-
'$check_files'(Files,Call) :-
var(Files), !,
'$do_error'(instantiation_error,Call).
'$check_files'(M:Files,Call) :-
'$check_files'(M:Files,Call) :- !,
(var(M)
->
'$do_error'(instantiation_error,Call)