print dot after errors, fix tests (#1408)

diff --git a/src/loader.pl b/src/loader.pl
index ebc81d6cbbba2f91c4eaad5702f4e6400a4c9b3e..a597855042137302e03de3338d4d856986f7c0fd 100644 (file)
--- a/src/loader.pl
+++ b/src/loader.pl
@@ -28,8 +28,10 @@ write_error(Error) :-
     ),
     (  nonvar(Error),
        functor(Error, error, 2) ->
-       writeq(Error)
-    ;  writeq(throw(Error))
+       writeq(Error),
+       write('.')
+    ;  writeq(throw(Error)),
+       write('.')
     ).
 
 '$print_message_and_fail'(Error) :-

diff --git a/tests/scryer/issues.rs b/tests/scryer/issues.rs
index 2db08402879e9f7c05bf8efd4b468536c193a79d..af22252abcbe0a7906190c6b8cc916fca9442f93 100644 (file)
--- a/tests/scryer/issues.rs
+++ b/tests/scryer/issues.rs
@@ -29,7 +29,7 @@ fn do_not_duplicate_path_components() {
         ['tests-pl/issue852-throw_e.pl'].\n\
         halt.\n\
         ",
-        "   throw(e)\n   false.\n   throw(e)\n   false.\n",
+        "   throw(e).\n   false.\n   throw(e).\n   false.\n",
     );
 }
 
@@ -165,6 +165,6 @@ fn ignored_constraint() {
 fn call_0() {
     load_module_test(
         "tests-pl/issue831-call0.pl",
-        "   error(existence_error(procedure,call/0),call/0)\n",
+        "   error(existence_error(procedure,call/0),call/0).\n",
     );
 }

diff --git a/tests/scryer/src_tests.rs b/tests/scryer/src_tests.rs
index 3dcd65605e27608662001440bd7af3cf1c4ace29..c7f7c80abd07be5a274eecbb961d4e532a52edd1 100644 (file)
--- a/tests/scryer/src_tests.rs
+++ b/tests/scryer/src_tests.rs
@@ -30,7 +30,7 @@ fn hello_world() {
 fn syntax_error() {
     load_module_test(
         "tests-pl/syntax_error.pl",
-        "   error(syntax_error(incomplete_reduction),read_term/3:6)\n",
+        "   error(syntax_error(incomplete_reduction),read_term/3:6).\n",
     );
 }