summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-11-22 09:16:06 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-11-22 09:16:06 +0000
commit395d8627b90c1b90b48f562436d189e037ff05a6 (patch)
tree61226bb71f825bae4c6fc45add70bf6c4efe7a31
parentf0942910aff219e4a153d6d2f446c100127b0048 (diff)
downloadguile-395d8627b90c1b90b48f562436d189e037ff05a6.tar.gz
* This patch belongs to the previous one, it deprecates SCM_VALIDATE_RWSTRING.
-rw-r--r--libguile/validate.h16
1 files changed, 8 insertions, 8 deletions
diff --git a/libguile/validate.h b/libguile/validate.h
index e80f5708a..5250f7645 100644
--- a/libguile/validate.h
+++ b/libguile/validate.h
@@ -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) \
@@ -416,6 +409,13 @@
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 */
#endif