[uim-commit] r1698 - branches/r5rs/sigscheme

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-30 08:05:27 -0700 (Fri, 30 Sep 2005)
New Revision: 1698

Modified:
   branches/r5rs/sigscheme/eval.c
   branches/r5rs/sigscheme/sigscheme.c
   branches/r5rs/sigscheme/sigscheme.h
Log:
* sigscheme/sigscheme.h
  - (ScmExp_lambda): Fix invalid argument type for env


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-09-30 14:24:45 UTC (rev 1697)
+++ branches/r5rs/sigscheme/eval.c	2005-09-30 15:05:27 UTC (rev 1698)
@@ -820,12 +820,12 @@
 /*===========================================================================
   R5RS : 4.1 Primitive expression types : 4.1.4 Procedures
 ===========================================================================*/
-ScmObj ScmExp_lambda(ScmObj args, ScmObj env)
+ScmObj ScmExp_lambda(ScmObj args , ScmEvalState *eval_state)
 {
     if (CHECK_2_ARGS(args))
         SigScm_ErrorObj("lambda : bad form : ", args);
 
-    return Scm_NewClosure(args, env);
+    return Scm_NewClosure(args, eval_state->env);
 }
 
 /*===========================================================================

Modified: branches/r5rs/sigscheme/sigscheme.c
===================================================================
--- branches/r5rs/sigscheme/sigscheme.c	2005-09-30 14:24:45 UTC (rev 1697)
+++ branches/r5rs/sigscheme/sigscheme.c	2005-09-30 15:05:27 UTC (rev 1698)
@@ -157,7 +157,7 @@
     Scm_RegisterProcedureFixed2("eval"                     , ScmOp_eval);
     Scm_RegisterProcedureVariadicTailRec2("apply"           , ScmOp_apply);
     Scm_RegisterSyntaxFixed1("quote"              , ScmOp_quote);
-    Scm_RegisterSyntaxVariadic0("lambda"             , ScmExp_lambda);
+    Scm_RegisterSyntaxFixedTailRec1("lambda"      , ScmExp_lambda);
     Scm_RegisterSyntaxFixed2("set!"               , ScmExp_set);
     Scm_RegisterSyntaxFixed1("delay"              , ScmOp_delay);
     Scm_RegisterSyntaxFixed1("quasiquote"         , ScmOp_quasiquote);

Modified: branches/r5rs/sigscheme/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/sigscheme.h	2005-09-30 14:24:45 UTC (rev 1697)
+++ branches/r5rs/sigscheme/sigscheme.h	2005-09-30 15:05:27 UTC (rev 1698)
@@ -364,7 +364,7 @@
 ScmObj ScmOp_eval(ScmObj obj, ScmObj env);
 ScmObj ScmOp_apply(ScmObj proc, ScmObj arg0, ScmObj rest, ScmEvalState *eval_state);
 ScmObj ScmOp_quote(ScmObj datum, ScmObj env);
-ScmObj ScmExp_lambda(ScmObj args, ScmObj env);
+ScmObj ScmExp_lambda(ScmObj args, ScmEvalState *eval_state);
 ScmObj ScmExp_if(ScmObj test, ScmObj conseq, ScmObj rest, ScmEvalState *eval_state);
 ScmObj ScmExp_set(ScmObj var, ScmObj val, ScmObj env);
 ScmObj ScmExp_cond(ScmObj args, ScmEvalState *eval_state);