guile/guile-core/libguile validate.h

[Dirk Herrmann]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Dirk Herrmann <address@hidden>  00/11/22 01:16:06

Modified files:
        guile-core/libguile: validate.h 

Log message:
        * This patch belongs to the previous one, it deprecates 
SCM_VALIDATE_RWSTRING.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/validate.h.diff?r1=1.19&r2=1.20

Patches:
Index: guile/guile-core/libguile/validate.h
diff -u guile/guile-core/libguile/validate.h:1.19 
guile/guile-core/libguile/validate.h:1.20
--- guile/guile-core/libguile/validate.h:1.19   Mon Oct 30 03:42:26 2000
+++ guile/guile-core/libguile/validate.h        Wed Nov 22 01:16:06 2000
@@ -1,4 +1,4 @@
-/* $Id: validate.h,v 1.19 2000/10/30 11:42:26 dirk Exp $ */
+/* $Id: validate.h,v 1.20 2000/11/22 09:16:06 dirk Exp $ */
 /*     Copyright (C) 1999, 2000 Free Software Foundation, Inc.
  *
  * This program is free software; you can redistribute it and/or modify
@@ -132,13 +132,6 @@
     cvar = SCM_STRING_CHARS(str); \
   } while (0)
 
-#define SCM_VALIDATE_RWSTRING(pos, str) \
-  do { \
-    SCM_ASSERT (SCM_STRINGP (str), str, pos, FUNC_NAME); \
-    if (!SCM_RWSTRINGP (str)) \
-      scm_misc_error (FUNC_NAME, "argument is a read-only string", str); \
-  } while (0)
-
 #define SCM_VALIDATE_REAL(pos, z) SCM_MAKE_VALIDATE (pos, z, REALP)
 
 #define SCM_VALIDATE_NUMBER_COPY(pos, z, cvar) \
@@ -414,6 +407,13 @@
       cvar = NULL; \
     else \
       cvar = SCM_ROCHARS(str); \
+  } while (0)
+
+#define SCM_VALIDATE_RWSTRING(pos, str) \
+  do { \
+    SCM_ASSERT (SCM_STRINGP (str), str, pos, FUNC_NAME); \
+    if (!SCM_RWSTRINGP (str)) \
+      scm_misc_error (FUNC_NAME, "argument is a read-only string", str); \
   } while (0)
 
 #endif  /* SCM_DEBUG_DEPRECATED == 0 */