* eval.c (apply_intrinsic, lazy_mapcar): Changed linkage to external.

* eval.h (apply_intrinsic, lazy_mapcar): Declarations added.

* stream.c (open_files, open_file_star): New functions.
(stream_init): Registered new functions as intrinsics.

* txr.1: Documented open-files and open-files*. Added to make-catenated-stream documentation.

* genvim.txr: Replace bunch of code with open-files.

* txr.vim: Regenerated.

1 files changed, 1 insertions, 3 deletions

diff --git a/genvim.txr b/genvim.txr
index 00d3506e..b9d6b816 100644
--- a/genvim.txr
+++ b/genvim.txr
@@ -7,9 +7,7 @@ static void dir_tables_init(void)
 @(until)
 }
 @(end)
-@(next @[apply make-catenated-stream 
-               [mapcar open-file '("eval.c" "rand.c" "signal.c"
-                                   "stream.c" "syslog.c" "txr.c")]])
+@(next @(open-files '("eval.c" "rand.c" "signal.c" "stream.c" "syslog.c" "txr.c")))
 @(collect)
 @  (block)
 @    (cases)