1 files changed, 5 insertions, 0 deletions
diff --git a/arith.c b/arith.c
index f227f217..1eb9c5fb 100644
--- a/arith.c
+++ b/arith.c
@@ -1439,6 +1439,11 @@ val loga(val num)
   return flo(log(c_flo(to_float(lit("log"), num))));
 }
 
+val logten(val num)
+{
+  return flo(log10(c_flo(to_float(lit("log"), num))));
+}
+
 val expo(val num)
 {
   return flo(exp(c_flo(to_float(lit("exp"), num))));