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/lang.c | |
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/lang.c')
-rw-r--r-- | libguile/lang.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/lang.c b/libguile/lang.c index 25181309a..3fe42c1c5 100644 --- a/libguile/lang.c +++ b/libguile/lang.c @@ -84,7 +84,7 @@ GUILE_PROC (scm_nil_car, "nil-car", 1, 0, 0, { if (SCM_NILP (x)) return scm_nil; - SCM_VALIDATE_NIMCONS(1,x); + SCM_VALIDATE_CONS(1,x); return SCM_CAR (x); } #undef FUNC_NAME @@ -96,7 +96,7 @@ GUILE_PROC (scm_nil_cdr, "nil-cdr", 1, 0, 0, { if (SCM_NILP (x)) return scm_nil; - SCM_VALIDATE_NIMCONS(1,x); + SCM_VALIDATE_CONS(1,x); return SCM_EOL2NIL (SCM_CDR (x), x); } #undef FUNC_NAME |