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/pairs.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/pairs.c')
-rw-r--r-- | libguile/pairs.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/pairs.c b/libguile/pairs.c index 8211426c4..96f1896e7 100644 --- a/libguile/pairs.c +++ b/libguile/pairs.c @@ -99,7 +99,7 @@ GUILE_PROC (scm_set_car_x, "set-car!", 2, 0, 0, "") #define FUNC_NAME s_scm_set_car_x { - SCM_VALIDATE_NIMCONS(1,pair); + SCM_VALIDATE_CONS(1,pair); SCM_SETCAR (pair, value); return SCM_UNSPECIFIED; } @@ -110,7 +110,7 @@ GUILE_PROC (scm_set_cdr_x, "set-cdr!", 2, 0, 0, "") #define FUNC_NAME s_scm_set_cdr_x { - SCM_VALIDATE_NIMCONS(1,pair); + SCM_VALIDATE_CONS(1,pair); SCM_SETCDR (pair, value); return SCM_UNSPECIFIED; } |