rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use double_quotes in write_error (#1886)

Browse Source
This commit is contained in:
Mark
2023-07-15 10:58:25 -06:00
parent 617c961f88
commit b234ef7ea3
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/loader.pl
View File

@@ -24,10 +24,14 @@ write_error(Error) :-
; write(' ') % if '$first_answer' isn't defined yet or true, ; write(' ') % if '$first_answer' isn't defined yet or true,
% print indentation. % print indentation.
), ),
( current_prolog_flag(double_quotes, chars) ->
DQ = true
; DQ = false
),
( nonvar(Error), ( nonvar(Error),
functor(Error, error, 2) -> functor(Error, error, 2) ->
writeq(Error) write_term(Error, [ignore_ops(false), numbervars(true), quoted(true), double_quotes(DQ)])
; writeq(throw(Error)) ; write_term(throw(Error), [ignore_ops(false), numbervars(true), quoted(true), double_quotes(DQ)])
), ),
write('.'). write('.').