diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 1999-12-19 01:04:37 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 1999-12-19 01:04:37 +0000 |
commit | 30939477457667b1307de3d2d3251bcd188ebf1b (patch) | |
tree | 81bcc6c4292f15c577582e2e81b836c1924c155d /libguile/strings.h | |
parent | 97b9d8ba4e1a38c87a2dd58a2aa346fed0204812 (diff) | |
download | guile-30939477457667b1307de3d2d3251bcd188ebf1b.tar.gz |
* tags.h (SCM_CONSP, SCM_NCONSP): Define these in terms of
SCM_SLOPPY_CONSP and SCM_SLOPPY_NCONSP. (SCM_CONSP) Define this
in terms of SCM_SLOPPY_NCONSP instead of repeating the
expression.
* symbols.h (SCM_SLOPPY_SUBSTRP, SCM_SUBSTRP): Added former, and
define latter in terms of sloppy variant.
* strings.h (SCM_SLOPPY_STRINGP, SCM_STRINGP): Added former, and
define latter in terms of sloppy variant.
* scm_validate.h (SCM_MAKE_VALIDATE): Added this macro to factor
out the commonality of the various basic SCM_VALIDATE_foop
macros. Use SCM_MAKE_VALIDATE macro where possible. Fix
SCM_VALIDATE_INT_COPY to not use scm_num2ulong -- that does
coercion to an integer which is more advanced than desired and
SCM_NUM2ULONG provides that functionality. Use SCM_ASSERT_RANGE
appropriately for the various _MIN, _MAX, _RANGE macros. Drop
some superfluous "SCM_NIMP &&" where possible. Eliminate obsoleted
SCM_VALIDATE_NIMCONS (SCM_VALIDATE_CONS now does the NIMP test as
part of its SCM_CONSP test).
* socket.c, ports.c, pairs.c, list.c, lang.c, async.c: Use
SCM_VALIDATE_CONS, not obsoleted SCM_VALIDATE_NIMCONS.
Diffstat (limited to 'libguile/strings.h')
-rw-r--r-- | libguile/strings.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/strings.h b/libguile/strings.h index 279dd57e8..d7decc92f 100644 --- a/libguile/strings.h +++ b/libguile/strings.h @@ -55,7 +55,8 @@ -#define SCM_STRINGP(x) (SCM_NIMP(x) && (SCM_TYP7S(x)==scm_tc7_string)) +#define SCM_SLOPPY_STRINGP(x) ((SCM_TYP7S(x)==scm_tc7_string)) +#define SCM_STRINGP(x) (SCM_NIMP(x) && SCM_SLOPPY_STRINGP(x)) #define SCM_NSTRINGP(x) (!SCM_STRINGP(x)) /* Is X a writable string (i.e., not a substring)? */ |