diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-11-22 09:16:06 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-11-22 09:16:06 +0000 |
commit | 395d8627b90c1b90b48f562436d189e037ff05a6 (patch) | |
tree | 61226bb71f825bae4c6fc45add70bf6c4efe7a31 | |
parent | f0942910aff219e4a153d6d2f446c100127b0048 (diff) | |
download | guile-395d8627b90c1b90b48f562436d189e037ff05a6.tar.gz |
* This patch belongs to the previous one, it deprecates SCM_VALIDATE_RWSTRING.
-rw-r--r-- | libguile/validate.h | 16 |
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 |