* arith.c (expo): New function.

* eval.c (eval_init): expo registered as intrinsic exp.

* lib.h (expo): Declared.

* txr.1: Added to stub heading.

* txr.vim: Highlighting for exp.

1 files changed, 5 insertions, 0 deletions

diff --git a/arith.c b/arith.c
index 27ac3faf..4ee87055 100644
--- a/arith.c
+++ b/arith.c
@@ -1319,6 +1319,11 @@ val loga(val num)
   return flo(log(c_flo(to_float(lit("log"), num))));
 }
 
+val expo(val num)
+{
+  return flo(exp(c_flo(to_float(lit("exp"), num))));
+}
+
 val sqroot(val num)
 {
   return flo(sqrt(c_flo(to_float(lit("sqrt"), num))));