Description: Fix argument "imm" being ignored in "m_letstar1"
 Like "m_letrec1", "m_letstar1" is used in the implementation of various
 syntactic elements.  Like in "m_letrec1", argument "imm" in "m_letstar1"
 is supposed to indicate (methinks) what syntactic element is being
 implemented.
Author: astian <astian@elude.in>
Forwarded: no
Last-Update: 2018-03-03

--- scm-5f2.orig/eval.c
+++ scm-5f2/eval.c
@@ -1274,6 +1274,7 @@ int scm_nullenv_p(env)
 static SCM m_letstar1(imm, vars, inits, body, env, ctxt)
      SCM imm, vars, inits, body, env, ctxt;
 {
+  SCM op = MAKSPCSYM2(IM_LETSTAR, imm);
   SCM init, bdgs = cons(env, EOL); /* initial env is for debug printing. */
   SCM *loc = &CDR(bdgs);
   while (NIMP(vars)) {
@@ -1284,7 +1285,7 @@ static SCM m_letstar1(imm, vars, inits,
     vars = CDR(vars);
     inits = CDR(inits);
   }
-  return cons2(IM_LETSTAR, bdgs, m_body(body, env, ctxt));
+  return cons2(op, bdgs, m_body(body, env, ctxt));
 }
 
 SCM m_letstar(xorig, env, ctxt)