mark variable referents in stackful iterator, fix tests (#1408)

2022-04-10 14:17:33 -06:00
parent d6287fae06
commit 95c192a988
2 changed files with 13 additions and 11 deletions
--- a/src/loader.pl
+++ b/src/loader.pl
@@ -28,11 +28,10 @@ write_error(Error) :-
    ),
    (  nonvar(Error),
       functor(Error, error, 2) ->
-       writeq(Error),
-       write('.')
-    ;  writeq(throw(Error)),
-       write('.')
-    ).
+       writeq(Error)
+    ;  writeq(throw(Error))
+    ),
+    write('.').

 '$print_message_and_fail'(Error) :-
    (  (  Error = error(existence_error(procedure, Expansion), Expansion)