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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-25 08:17:12 -0800 (Sun, 25 Dec 2005)
New Revision: 2702

Modified:
   branches/r5rs/sigscheme/operations-siod.c
Log:
* sigscheme/operations-siod.c
  - (scm_p_set_symbol_valued): Make compilable with SCM_OBJ_COMPACT


Modified: branches/r5rs/sigscheme/operations-siod.c
===================================================================
--- branches/r5rs/sigscheme/operations-siod.c	2005-12-25 06:39:29 UTC (rev 2701)
+++ branches/r5rs/sigscheme/operations-siod.c	2005-12-25 16:17:12 UTC (rev 2702)
@@ -150,7 +150,9 @@
 
     ASSERT_SYMBOLP(var);
 
-    return SCM_SYMBOL_SET_VCELL(var, val);
+    SCM_SYMBOL_SET_VCELL(var, val);
+
+    return val;
 }
 
 ScmObj