* lib.c (mulv): Recognize cases to eliminate a wasteful mul call

with an initial element of 1.

1 files changed, 5 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 6109a5b3..84d61371 100644
--- a/lib.c
+++ b/lib.c
@@ -881,7 +881,11 @@ val mul(val anum, val bnum)
 
 val mulv(val nlist)
 {
-  return reduce_left(func_n2(mul), nlist, num(1), nil);
+  if (!nlist)
+    return num(1);
+  else if (!cdr(nlist))
+    return car(nlist);
+  return reduce_left(func_n2(mul), cdr(nlist), car(nlist), nil);
 }
 
 val trunc(val anum, val bnum)