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) :-
|
'$check_files'(Files,Call) :-
|
||||||
var(Files), !,
|
var(Files), !,
|
||||||
'$do_error'(instantiation_error,Call).
|
'$do_error'(instantiation_error,Call).
|
||||||
'$check_files'(M:Files,Call) :-
|
'$check_files'(M:Files,Call) :- !,
|
||||||
(var(M)
|
(var(M)
|
||||||
->
|
->
|
||||||
'$do_error'(instantiation_error,Call)
|
'$do_error'(instantiation_error,Call)
|
||||||
|
Reference in New Issue
Block a user