* eval.c (prinl, pprinl): Become external functions.

(tprint): New function.
(eval_init): Register tprint as intrinsic.

* eval.h (prinl, pprinl, tprint): Declared.

* txr.c (txr_main): New option, -t.

* txr.1: Documented tprint and -t option.

1 files changed, 3 insertions, 0 deletions

diff --git a/eval.h b/eval.h
index f027de1a..39344c05 100644
--- a/eval.h
+++ b/eval.h
@@ -49,5 +49,8 @@ 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);
+val prinl(val obj, val stream);
+val pprinl(val obj, val stream);
+val tprint(val obj, val out);
 
 void eval_init(void);