From 15c42fa37fced6cb65b09dce07d59fc729748018 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 24 Feb 2014 20:59:18 -0800 Subject: * 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. --- eval.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 5e1fa98b..e96e37ea 100644 --- a/eval.c +++ b/eval.c @@ -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 -- cgit v1.2.3