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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-03 14:24:34 -0700 (Mon, 03 Oct 2005)
New Revision: 1780

Modified:
   branches/r5rs/sigscheme/operations-siod.c
   branches/r5rs/sigscheme/operations.c
Log:
* sigscheme/operations.c
  - (ScmOp_dynamic_wind): Remove an unused variable

* sigscheme/operations-siod.c
  - (ScmOp_symbol_boundp): Enclose an local variable into #if
    !SCM_COMPAT_SIOD_BUGS to suppress warning


Modified: branches/r5rs/sigscheme/operations-siod.c
===================================================================
--- branches/r5rs/sigscheme/operations-siod.c	2005-10-03 21:21:31 UTC (rev 1779)
+++ branches/r5rs/sigscheme/operations-siod.c	2005-10-03 21:24:34 UTC (rev 1780)
@@ -118,7 +118,9 @@
  */
 ScmObj ScmOp_symbol_boundp(ScmObj sym, ScmObj rest)
 {
+#if !SCM_COMPAT_SIOD_BUGS
     ScmObj env = SCM_INVALID;
+#endif
     DECLARE_FUNCTION("symbol-bound?", ProcedureVariadic1);
 
     ASSERT_SYMBOLP(sym);

Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2005-10-03 21:21:31 UTC (rev 1779)
+++ branches/r5rs/sigscheme/operations.c	2005-10-03 21:24:34 UTC (rev 1780)
@@ -1855,7 +1855,6 @@
 ScmObj ScmOp_dynamic_wind(ScmObj before, ScmObj thunk, ScmObj after,
                           ScmEvalState *eval_state)
 {
-    ScmObj vals;
     DECLARE_FUNCTION("dynamic-wind", ProcedureFixedTailRec3);
 
     ASSERT_PROCEDUREP(before);