interpreter: trivial let goes through let* case.

* eval.c (bindings_helper): If there are no bindings or just
one binding, then go through the sequential case. Thus trivial
let is treated like let*. This avoids the continuation-related
overheads incurred in the parallel case.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index ad8ed0c9..ef57289f 100644
--- a/eval.c
+++ b/eval.c
@@ -1656,7 +1656,7 @@ static val bindings_helper(val vars, val env, val sequential,
   val iter, var;
   list_collect_decl (new_bindings, ptail);
 
-  if (sequential) {
+  if (sequential || vars == nil || cdr(vars) == nil) {
     for (iter = vars; iter; iter = cdr(iter)) {
       val item = car(iter);
       val value = nil;