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
This commit is contained in:
@@ -1627,7 +1627,7 @@ set_stream_position(S_or_a, Position) :-
|
|||||||
; Position = position_and_lines_read(P, _),
|
; Position = position_and_lines_read(P, _),
|
||||||
is_stream_position(Position) ->
|
is_stream_position(Position) ->
|
||||||
'$set_stream_position'(S_or_a, P)
|
'$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) :-
|
callable(X) :-
|
||||||
|
|||||||
Reference in New Issue
Block a user