From 24b4b36628fd2ab3d3ff946907ad3a88e325a772 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 6 Mar 2014 07:35:15 -0800 Subject: * 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. --- eval.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'eval.h') diff --git a/eval.h b/eval.h index d51c5953..a46d2a9a 100644 --- a/eval.h +++ b/eval.h @@ -39,6 +39,7 @@ val interp_fun(val env, val fun, val args); void reg_var(val sym, val val); void reg_fun(val sym, val fun); val apply(val fun, val arglist, val ctx_form); +val apply_intrinsic(val fun, val args); val eval_progn(val forms, val env, val ctx_form); val eval(val form, val env, val ctx_form); val eval_intrinsic(val form, val env); @@ -46,6 +47,7 @@ val expand(val form, val menv); val expand_forms(val forms, val menv); val bindable(val obj); val mapcarv(val fun, val list_of_lists); +val lazy_mapcar(val fun, val list); val generate(val while_pred, val gen_fun); void eval_init(void); -- cgit v1.2.3