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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-10-03 06:20:56 -0700 (Mon, 03 Oct 2005)
New Revision: 1772

Modified:
   branches/r5rs/sigscheme/operations-srfi34.c
Log:
* sigscheme/operations-srfi34.c
  - (ScmExp_SRFI34_guard): move ASSERT_SYMBOLP location


Modified: branches/r5rs/sigscheme/operations-srfi34.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi34.c	2005-10-03 13:12:39 UTC (rev 1771)
+++ branches/r5rs/sigscheme/operations-srfi34.c	2005-10-03 13:20:56 UTC (rev 1772)
@@ -135,12 +135,13 @@
     ScmObj cont    = Scm_NewContinuation();
     DECLARE_FUNCTION("guard", SyntaxVariadic1);
 
-    ASSERT_SYMBOLP(var);
     ASSERT_CONSP(var_and_clauses);
 
     var     = CAR(var_and_clauses);
     clauses = CDR(var_and_clauses);
 
+    ASSERT_SYMBOLP(var);
+
     /* check if return from "raise" */
     CONTINUATION_SET_JMPENV(cont, &jmpenv);
     if (setjmp(CONTINUATION_JMPENV(cont))) {