The mode argument in some stream-opening functions becomes optional.

* eval.c (eval_init): Change registration for open_file, open_tail
and open_command.

* stream.c (open_file, open_tail, open_command): mode_str argument
defaulted.

* txr.1: Updated.

1 files changed, 3 insertions, 3 deletions

diff --git a/eval.c b/eval.c
index 36ac3ea9..f23546f2 100644
--- a/eval.c
+++ b/eval.c
@@ -2952,9 +2952,9 @@ void eval_init(void)
   reg_var(intern(lit("s-ixoth"), user_package), &s_ixoth);
 
   reg_fun(intern(lit("open-directory"), user_package), func_n1(open_directory));
-  reg_fun(intern(lit("open-file"), user_package), func_n2(open_file));
-  reg_fun(intern(lit("open-tail"), user_package), func_n3(open_tail));
-  reg_fun(intern(lit("open-command"), user_package), func_n2(open_command));
+  reg_fun(intern(lit("open-file"), user_package), func_n2o(open_file, 1));
+  reg_fun(intern(lit("open-tail"), user_package), func_n3o(open_tail, 1));
+  reg_fun(intern(lit("open-command"), user_package), func_n2o(open_command, 1));
   reg_fun(intern(lit("open-pipe"), user_package), func_n2(open_command));
   reg_fun(intern(lit("open-process"), user_package), func_n3o(open_process, 2));
   reg_fun(intern(lit("remove-path"), user_package), func_n1(remove_path));