From 7320959c0a70a679011d0a0e0d2e43c586f631ab Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 20 Nov 2014 20:23:17 -0800
Subject: * arith.c (wrap_star, wrap): New functions.

* eval.c (eval_init): Registered wrap and wrap* intrinsics.

* lib.h (wrap_star, wrap): Declared.

* txr.1: wrap and wrap* documented.
---
 lib.h | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib.h')

diff --git a/lib.h b/lib.h
index 80a56c14..c5c187ff 100644
--- a/lib.h
+++ b/lib.h
@@ -538,6 +538,8 @@ val mul(val anum, val bnum);
 val mulv(val nlist);
 val trunc(val anum, val bnum);
 val mod(val anum, val bnum);
+val wrap_star(val start, val end, val num);
+val wrap(val start, val end, val num);
 val divi(val anum, val bnum);
 val zerop(val num);
 val evenp(val num);
-- 
cgit v1.2.3