bracket: new function.

* eval.c (eval_init): Register bracket intrinsic.

* lib.c (bracket): New function.

* lib.h (bracket): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index c426fe64..cb1b2ef6 100644
--- a/lib.h
+++ b/lib.h
@@ -740,6 +740,7 @@ val minv(val first, struct args *rest);
 val maxl(val first, val rest);
 val minl(val first, val rest);
 val clamp(val low, val high, val num);
+val bracket(val larg, struct args *args);
 val expt(val base, val exp);
 val exptv(struct args *nlist);
 val exptmod(val base, val exp, val mod);