fixes for issues #185 and #181

2019-10-04 20:03:03 -06:00
parent 1569cac98f
commit 3fa168d35b
6 changed files with 22 additions and 15 deletions
--- a/src/prolog/toplevel.pl
+++ b/src/prolog/toplevel.pl
@@ -31,13 +31,9 @@
    !.

 '$print_exception'(E) :-
-    (  E = error(_, _:_) -> true % if the error source contains a line
-                                 % number, a GNU-style error message
-                                 % is expected to be printed instead.
-    ;  write_term('caught: ', [quoted(false)]),
-       writeq(E),
-       nl
-    ).
+    write_term('caught: ', [quoted(false)]),
+    writeq(E),
+    nl.    

 '$predicate_indicator'(Source, PI) :-
    (  nonvar(PI) ->