]> Repositorios git - scryer-prolog.git/commitdiff
FIXED: instantiation errors for alias(Var) in open/4 options
authorMarkus Triska <[email protected]>
Mon, 8 Nov 2021 21:41:04 +0000 (22:41 +0100)
committerMarkus Triska <[email protected]>
Mon, 8 Nov 2021 21:41:04 +0000 (22:41 +0100)
This addresses #1030.

src/lib/builtins.pl

index 1a92acf998d1c7a26209c3200a1bc29480e5acad..f8808ebb1adf068ecb32c45cb264040927064817 100644 (file)
@@ -1442,7 +1442,10 @@ parse_stream_options_(reposition(Bool), reposition-Bool) :-
        throw(error(domain_error(stream_option, reposition(Bool)), _))
     ).
 parse_stream_options_(alias(A), alias-A) :-
-    (  atom(A), A \== [], !, true
+    (  var(A) ->
+       throw(error(instantiation_error, open/4)) % 8.1.3 7)
+    ;
+       atom(A), A \== [] -> true
     ;
        throw(error(domain_error(stream_option, alias(A)), _))
     ).