fix unnecessary choicepoint in [a].
This commit is contained in:
parent
abe4744fe7
commit
96a15851a7
@ -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)
|
||||
|
Reference in New Issue
Block a user