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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-02 07:18:47 -0800 (Mon, 02 Jan 2006)
New Revision: 2728

Modified:
   branches/r5rs/sigscheme/sigschemeinternal.h
Log:
* sigscheme/sigschemeinternal.h
  - (ASSERT_MUTABLEP): Cosmetic change


Modified: branches/r5rs/sigscheme/sigschemeinternal.h
===================================================================
--- branches/r5rs/sigscheme/sigschemeinternal.h	2006-01-02 15:14:29 UTC (rev 2727)
+++ branches/r5rs/sigscheme/sigschemeinternal.h	2006-01-02 15:18:47 UTC (rev 2728)
@@ -347,6 +347,11 @@
 #define ASSERT_ERROBJP(obj)  ASSERT_TYPE(ERROBJP, "error object", (obj))
 #define ASSERT_LISTP(obj)    ASSERT_TYPE(LISTP, "list", (obj))
 
+/* FIXME: Rename to ENSURE_MUTABLE() */
+#define ASSERT_MUTABLEP(str)                                                 \
+    (SCM_STRING_MUTABLEP(str)                                                \
+     || (ERR_OBJ("attempted to modify immutable string", str), 1))
+
 #define ENSURE_STATEFUL_CODEC(codec)                                         \
     (SCM_CHARCODEC_STATEFULP(codec)                                          \
      || (ERR("%s: stateful character codec required but got: %s",            \
@@ -369,14 +374,6 @@
 #define ASSERT_ALLOCATED SCM_ASSERT_ALLOCATED
 
 /*=======================================
-   String Mutation Assertion
-=======================================*/
-/* FIXME: Rename to ENSURE_MUTABLE() */
-#define ASSERT_MUTABLEP(str)                                                 \
-    (SCM_STRING_MUTABLEP(str)                                                \
-     || (ERR_OBJ("attempted to modify immutable string", str), 1))
-
-/*=======================================
    List Constructor
 =======================================*/
 typedef ScmRef ScmQueue;