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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-11 19:01:24 -0800 (Sun, 11 Dec 2005)
New Revision: 2536

Modified:
   branches/r5rs/sigscheme/operations-srfi2.c
Log:
* sigscheme/operations-srfi2.c
  - (ScmExp_SRFI2_and_letstar): Replace SCM_SHIFT_RAW_2() with
    LIST_2_P()


Modified: branches/r5rs/sigscheme/operations-srfi2.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi2.c	2005-12-12 02:53:32 UTC (rev 2535)
+++ branches/r5rs/sigscheme/operations-srfi2.c	2005-12-12 03:01:24 UTC (rev 2536)
@@ -95,8 +95,10 @@
                     val = EVAL(exp, env);
                 } else if (SYMBOLP(CAR(claw))) {
                     /* (<variable> <expression>) */
-                    if (!NULLP(SCM_SHIFT_RAW_2(var, exp, claw)))
+                    if (!LIST_2_P(claw))
                         goto err;
+                    var = CAR(claw);
+                    exp = CADR(claw);
                     val = EVAL(exp, env);
                     env = Scm_ExtendEnvironment(LIST_1(var), LIST_1(val), env);
                 } else {