* 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, 2 insertions, 2 deletions

diff --git a/eval.c b/eval.c
index 00b448ce..6e3ff5ac 100644
--- a/eval.c
+++ b/eval.c
@@ -651,7 +651,7 @@ static val apply_frob_args(val args)
   }
 }
 
-static val apply_intrinsic(val fun, val args)
+val apply_intrinsic(val fun, val args)
 {
   return apply(fun, apply_frob_args(args), cons(apply_s, nil));
 }
@@ -2661,7 +2661,7 @@ static val lazy_mapcar_func(val env, val lcons)
   return nil;
 }
 
-static val lazy_mapcar(val fun, val list)
+val lazy_mapcar(val fun, val list)
 {
   if (!list)
     return nil;