throw instantiation_error from error/2 if Error_term uninstantiated (#2060)
This commit is contained in:
@@ -2226,4 +2226,7 @@ nl(Stream) :-
|
|||||||
%
|
%
|
||||||
% Throws an exception of the following structure: `error(ErrorTerm, ImpDef)`.
|
% Throws an exception of the following structure: `error(ErrorTerm, ImpDef)`.
|
||||||
error(Error_term, Imp_def) :-
|
error(Error_term, Imp_def) :-
|
||||||
throw(error(Error_term, Imp_def)).
|
( var(Error_term) ->
|
||||||
|
throw(error(instantiation_error, error/2))
|
||||||
|
; throw(error(Error_term, Imp_def))
|
||||||
|
).
|
||||||
|
|||||||
Reference in New Issue
Block a user