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, 13 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 00807a85..194d8cb6 100644
--- a/lib.c
+++ b/lib.c
@@ -3586,6 +3586,19 @@ static val rexpt(val right, val left)
   return expt(left, right);
 }
 
+val bracket(val larg, struct args *args)
+{
+  cnum index = 0;
+
+  while (args_more(args, index)) {
+    val rarg = args_get(args, &index);
+    if (less(larg, rarg))
+      return num(index - 1);
+  }
+
+  return num(index);
+}
+
 val exptv(struct args *nlist)
 {
   cnum nargs = args_count(nlist);