From f2e197dcd31d737bf23816107343f67e2bf6dd8e Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 13 Aug 2015 21:47:02 -0700
Subject: New function, clamp.

* eval.c (eval_init): Register clamp as intrinsic function.

* lib.c (clamp): New function.

* lib.h (clamp): Declared.

* txr.1: Documented.
---
 lib.h | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib.h')

diff --git a/lib.h b/lib.h
index ad5194bd..646038a3 100644
--- a/lib.h
+++ b/lib.h
@@ -583,6 +583,7 @@ val max2(val a, val b);
 val min2(val a, val b);
 val maxv(val first, val rest);
 val minv(val first, val rest);
+val clamp(val low, val high, val num);
 val expt(val base, val exp);
 val exptv(val nlist);
 val exptmod(val base, val exp, val mod);
-- 
cgit v1.2.3