Add error/2, re issue #352

trealla-prolog · Sep 28, 2023 · 02e1883 · 02e1883
1 parent 94eb8ef
commit 02e1883
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/library/builtins.pl b/library/builtins.pl
@@ -3,6 +3,11 @@
 resource_error(Resource, Context) :-
    throw(error(resource_error(Resource), Context)).
 
+error(Err, Impl) :-
+	must_be(Err, atom, error/2, _),
+	F =.. [Err, Impl],
+	throw(F).
+
 predicate_property(P, A) :-
 	nonvar(P), atom(A), !,
 	must_be(P, callable, predicate_property/2, _),