diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2012-05-18 21:22:32 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2012-05-18 21:22:32 -0700 |
commit | c3700b0be6c78154e811a3225128efec098efcaf (patch) | |
tree | f16781e33cf92a3a9672ab3035afadd752cd0c17 /eval.c | |
parent | 246887dce1d8d09ec2a5af5f019613ac064e779c (diff) | |
download | txr-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.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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); |