correct error catching in call_verify_attributes/4

2019-02-09 14:21:58 -07:00
parent 197d079281
commit 938ec60379
1 changed files with 2 additions and 2 deletions
--- a/src/prolog/machine/attributed_variables.pl
+++ b/src/prolog/machine/attributed_variables.pl
@@ -15,8 +15,8 @@ call_verify_attributes(Attrs, _, _, []) :-
 call_verify_attributes([Attr|Attrs], Var, Value, [Goals|ListOfGoalLists]) :-
    '$module_of'(M, Attr), % write the owning module Attr to M.
    catch(M:verify_attributes(Var, Value, Goals),
-          error(evaluation_error((M:verify_attributes)/3), call_verify_attributes/3),
-          true),
+          error(evaluation_error((M:verify_attributes)/3), verify_attributes/3),
+          Goals = []),
    call_verify_attributes(Attrs, Var, Value, ListOfGoalLists).

 call_goals([ListOfGoalLists | ListsCubed]) :-