From: astian <astian@elude.in>
Date: Sun, 26 May 2024 12:16:48 +0200
Subject: Fix argument "imm" being ignored in "m_letstar1"

Forwarded: no
Last-Update: 2018-03-03

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.
---
 eval.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/eval.c b/eval.c
index 52372de..b861ded 100644
--- a/eval.c
+++ b/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, body, env, ctxt)
     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)