From 0a71e40030156274a2a2a918bb106a0f505529a1 Mon Sep 17 00:00:00 2001 From: Mark Thom Date: Fri, 5 Mar 2021 01:14:51 -0700 Subject: [PATCH] qualify '$print_project_attributes_exception' call (#857) --- src/machine/project_attributes.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/machine/project_attributes.pl b/src/machine/project_attributes.pl index 15fe148d..26632ea6 100644 --- a/src/machine/project_attributes.pl +++ b/src/machine/project_attributes.pl @@ -15,7 +15,9 @@ enqueue_goals(Goals0) :- enqueue_goals(_). '$print_project_attributes_exception'(Module, E) :- - ( E = error(evaluation_error((Module:project_attributes)/2), project_attributes/2) -> + ( ( E = error(existence_error(procedure, project_attributes/2), _) + ; E = error(evaluation_error((Module:project_attributes)/2), _) + ) -> true ; write_term('caught: ', [quoted(false)]), writeq(E), @@ -26,7 +28,7 @@ call_project_attributes([], _, _). call_project_attributes([Module|Modules], QueryVars, AttrVars) :- ( catch(Module:project_attributes(QueryVars, AttrVars), E, - '$print_project_attributes_exception'(Module, E) + '$project_atts':'$print_project_attributes_exception'(Module, E) ) -> true ; true -- 2.54.0