Merge pull request #954 from pmoura/fix_set_stream_position_exception_term_missing_argument

Fix set_stream_position/2 predicate missing argument in exception term
2021-05-13 23:17:12 -06:00
parent 39aebd7144 c2fe0876c2
commit 2813c75292
1 changed files with 1 additions and 1 deletions
--- a/src/lib/builtins.pl
+++ b/src/lib/builtins.pl
@@ -1627,7 +1627,7 @@ set_stream_position(S_or_a, Position) :-
    ;  Position = position_and_lines_read(P, _),
       is_stream_position(Position) ->
       '$set_stream_position'(S_or_a, P)
-    ;  throw(error(domain_error(stream_position, Position)))
+    ;  throw(error(domain_error(stream_position, Position), set_stream_position/2))
    ).

 callable(X) :-