* 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.

1 files changed, 3 insertions, 0 deletions

diff --git a/stream.h b/stream.h
index 30d89fe7..254b5cf4 100644
--- a/stream.h
+++ b/stream.h
@@ -108,5 +108,8 @@ val makedev_wrap(val major, val minor);
 val minor_wrap(val dev);
 val major_wrap(val dev);
 val mknod_wrap(val path, val mode, val dev);
+val symlink_wrap(val target, val to);
+val link_wrap(val target, val to);
+val readlink_wrap(val path);
 
 void stream_init(void);