print errors with line numbers in GNU style

src/prolog/toplevel.pl

@@ -31,9 +31,13 @@
     !.
 
 '$print_exception'(E) :-
-    write_term('caught: ', [quoted(false)]),
-    writeq(E),
-    nl.
+    (  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
+    ).
 
 '$predicate_indicator'(Source, PI) :-
     (  nonvar(PI) ->