fix unnecessary choicepoint in [a].
This commit is contained in:
parent
dd3645b5c8
commit
bb3c837ec5
@ -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