[uim-commit] r2994 - branches/r5rs/sigscheme/src

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-25 22:23:13 -0800 (Wed, 25 Jan 2006)
New Revision: 2994

Modified:
   branches/r5rs/sigscheme/src/operations.c
   branches/r5rs/sigscheme/src/sigschemeinternal.h
Log:
* sigscheme/src/sigschemeinternal.h
  - (ENSURE_MUTABLE, ENSURE_MUTABLE_STRING): Rename ENSURE_MUTABLE to
    ENSURE_MUTABLE_STRING
* sigscheme/src/operations.c
  - (scm_p_string_setd, scm_p_string_filld): Follow the renaming


Modified: branches/r5rs/sigscheme/src/operations.c
===================================================================
--- branches/r5rs/sigscheme/src/operations.c	2006-01-26 04:42:36 UTC (rev 2993)
+++ branches/r5rs/sigscheme/src/operations.c	2006-01-26 06:23:13 UTC (rev 2994)
@@ -1525,7 +1525,7 @@
 
     ENSURE_STATELESS_CODEC(scm_current_char_codec);
     ENSURE_STRING(str);
-    ENSURE_MUTABLE(str);
+    ENSURE_MUTABLE_STRING(str);
     ENSURE_INT(k);
     ENSURE_CHAR(ch);
 
@@ -1980,7 +1980,7 @@
 
     ENSURE_STATELESS_CODEC(scm_current_char_codec);
     ENSURE_STRING(str);
-    ENSURE_MUTABLE(str);
+    ENSURE_MUTABLE_STRING(str);
     ENSURE_CHAR(ch);
 
     str_len = SCM_STRING_LEN(str);

Modified: branches/r5rs/sigscheme/src/sigschemeinternal.h
===================================================================
--- branches/r5rs/sigscheme/src/sigschemeinternal.h	2006-01-26 04:42:36 UTC (rev 2993)
+++ branches/r5rs/sigscheme/src/sigschemeinternal.h	2006-01-26 06:23:13 UTC (rev 2994)
@@ -348,7 +348,7 @@
 #define ENSURE_ERROBJ(obj)  ENSURE_TYPE(ERROBJP, "error object", (obj))
 #define ENSURE_LIST(obj)    ENSURE_TYPE(LISTP, "list", (obj))
 
-#define ENSURE_MUTABLE(str)                                                  \
+#define ENSURE_MUTABLE_STRING(str)                                           \
     (SCM_STRING_MUTABLEP(str)                                                \
      || (ERR_OBJ("attempted to modify immutable string", str), 1))