clear alias in close before resetting the stream to null (#1231)

2022-01-17 17:58:09 -07:00
parent 89e33903b2
commit 3ebf8d5db9
2 changed files with 4 additions and 3 deletions
--- a/src/lib/builtins.pl
+++ b/src/lib/builtins.pl
@@ -1468,7 +1468,8 @@ open(SourceSink, Mode, Stream, StreamOptions) :-
                atom(SourceSink) ->
                atom_chars(SourceSink, SourceSinkString)
           ;    SourceSink = SourceSinkString
-           ), '$open'(SourceSinkString, Mode, Stream, Alias, EOFAction, Reposition, Type)
+           ),
+           '$open'(SourceSinkString, Mode, Stream, Alias, EOFAction, Reposition, Type)
       )
    ).