New functions starts-with and ends-with.

* eval.c (eval_init): Register starts-with and ends-with
intrinsics.

* lib.c (starts_with, ends_with): New functions.

* lib.c (starts_with, ends_with): Declared.

* txr.1: Documented.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 79a1fbe9..df401e58 100644
--- a/lib.h
+++ b/lib.h
@@ -974,6 +974,8 @@ val pos_max(val seq, val testfun, val keyfun);
 val pos_min(val seq, val testfun, val keyfun);
 val mismatch(val left, val right, val testfun, val keyfun);
 val rmismatch(val left, val right, val testfun, val keyfun);
+val starts_with(val little, val big, val testfun, val keyfun);
+val ends_with(val little, val big, val testfun, val keyfun);
 val take(val count, val seq);
 val take_while(val pred, val seq, val keyfun);
 val take_until(val pred, val seq, val keyfun);