fix unsafe variable handling

2019-01-24 23:38:53 -07:00
parent c32090325a
commit ef3d3aa01a
13 changed files with 141 additions and 115 deletions
--- a/src/prolog/lib/builtins.pl
+++ b/src/prolog/lib/builtins.pl
@@ -202,9 +202,9 @@ get_args([Arg|Args], Func, I0, N) :-

 % write, write_canonical, writeq, write_term.
 is_write_option(Functor) :-
-    Functor =.. [Name, Arg | Args],
-    ( Args == [], Arg == true -> true
-    ; Args == [], Arg == false -> true
+    Functor =.. [Name, Arg],
+    ( Arg == true -> true
+    ; Arg == false -> true
    ; throw(error(domain_error(write_option, Functor), write_term/2)) ), % 8.14.2.3 e)
    ( Name == ignore_ops -> true
    ; Name == quoted -> true