fix tests, use '$first_answer' to print indentation before errors (#1408)

2022-04-09 20:32:52 -06:00
parent 00eab4d415
commit 8bf3d4ea71
6 changed files with 17 additions and 17 deletions
--- a/src/machine/project_attributes.pl
+++ b/src/machine/project_attributes.pl
@@ -10,8 +10,7 @@ project_attributes(QueryVars, AttrVars) :-
       ;  E = error(evaluation_error((Module:project_attributes)/2), _)
       )  ->
       true
-    ;  write_term('caught: ', [quoted(false)]),
-       writeq(E),
+    ;  loader:write_error(E),
       nl
    ).

@@ -34,8 +33,7 @@ call_attribute_goals([Module|Modules], GoalCaller, AttrVars) :-
 '$print_attribute_goals_exception'(Module, E) :-
    (  E = error(evaluation_error((Module:attribute_goals)/3), attribute_goals/3)
    -> true
-    ;  write_term('caught: ', [quoted(false)]),
-       writeq(E),
+    ;  loader:write_error(E),
       nl
    ).