use double_quotes in write_error (#1886)

2023-07-15 10:58:25 -06:00
parent 617c961f88
commit b234ef7ea3
1 changed files with 6 additions and 2 deletions
--- a/src/loader.pl
+++ b/src/loader.pl
@@ -24,10 +24,14 @@ write_error(Error) :-
    ;  write('   ') % if '$first_answer' isn't defined yet or true,
                    % print indentation.
    ),
+    (  current_prolog_flag(double_quotes, chars) ->
+       DQ = true
+    ;  DQ = false
+    ),
    (  nonvar(Error),
       functor(Error, error, 2) ->
-       writeq(Error)
-    ;  writeq(throw(Error))
+       write_term(Error, [ignore_ops(false), numbervars(true), quoted(true), double_quotes(DQ)])
+    ;  write_term(throw(Error), [ignore_ops(false), numbervars(true), quoted(true), double_quotes(DQ)])
    ),
    write('.').