fix unnecessary choicepoint in [a].

This commit is contained in:
Vitor Santos Costa 2010-03-09 22:00:46 +00:00
parent abe4744fe7
commit 96a15851a7
1 changed files with 1 additions and 1 deletions

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)