summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2012-05-18 21:22:32 -0700
committerKaz Kylheku <kaz@kylheku.com>2012-05-18 21:22:32 -0700
commitc3700b0be6c78154e811a3225128efec098efcaf (patch)
treef16781e33cf92a3a9672ab3035afadd752cd0c17 /eval.c
parent246887dce1d8d09ec2a5af5f019613ac064e779c (diff)
downloadtxr-c3700b0be6c78154e811a3225128efec098efcaf.tar.gz
txr-c3700b0be6c78154e811a3225128efec098efcaf.tar.bz2
txr-c3700b0be6c78154e811a3225128efec098efcaf.zip
* eval.c (eval_init): Registered open-command and open-process
intrinsics. open-pipe is now deprecated but stays for backward compatibility as a synonym for open-command. * stream.c (open_pipe): Renamed to open_command. (open_pipevp): Renamed to open_process. * stream.h (open_pipe, open_pipevp): Declarations updated. * txr.1: Documentation headings updated.
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/eval.c b/eval.c
index af8841ac..fea2ed7a 100644
--- a/eval.c
+++ b/eval.c
@@ -2290,8 +2290,9 @@ void eval_init(void)
reg_fun(intern(lit("flush-stream"), user_package), func_n1(flush_stream));
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-pipe"), user_package), func_n2(open_pipe));
- reg_fun(intern(lit("open-pipe-args"), user_package), func_n3o(open_pipevp, 2));
+ reg_fun(intern(lit("open-command"), user_package), func_n2(open_command));
+ 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_var(intern(lit("*user-package*"), user_package), &user_package);
reg_var(intern(lit("*keyword-package*"), user_package), &keyword_package);