diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2014-02-24 20:59:18 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2014-02-24 20:59:18 -0800 |
commit | 15c42fa37fced6cb65b09dce07d59fc729748018 (patch) | |
tree | 6c35c40aa32d354a67b0cb44b4d0e4104aa93f3b /eval.c | |
parent | 17703842631784a8f623b5478380e90e4e17c8ef (diff) | |
download | txr-15c42fa37fced6cb65b09dce07d59fc729748018.tar.gz txr-15c42fa37fced6cb65b09dce07d59fc729748018.tar.bz2 txr-15c42fa37fced6cb65b09dce07d59fc729748018.zip |
* eval.c (eval_init): Intern symlink_wrap, link_wrap, readlink_wrap.
* stream.c (symlink_wrap, link_wrap, readlink_wrap): New functions.
* stream.h (symlink_wrap, link_wrap, readlink_wrap): Declared.
* txr.1: Documented.
Diffstat (limited to 'eval.c')
-rw-r--r-- | eval.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -3602,6 +3602,9 @@ void eval_init(void) reg_fun(intern(lit("minor"), user_package), func_n1(minor_wrap)); reg_fun(intern(lit("major"), user_package), func_n1(major_wrap)); reg_fun(intern(lit("mknod"), user_package), func_n3(mknod_wrap)); + reg_fun(intern(lit("symlink"), user_package), func_n2(symlink_wrap)); + reg_fun(intern(lit("link"), user_package), func_n2(link_wrap)); + reg_fun(intern(lit("readlink"), user_package), func_n1(readlink_wrap)); #endif #if HAVE_SYSLOG |