summaryrefslogtreecommitdiff
path: root/libguile/pairs.c
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>1999-12-19 01:04:37 +0000
committerGreg J. Badros <gjb@cs.washington.edu>1999-12-19 01:04:37 +0000
commit30939477457667b1307de3d2d3251bcd188ebf1b (patch)
tree81bcc6c4292f15c577582e2e81b836c1924c155d /libguile/pairs.c
parent97b9d8ba4e1a38c87a2dd58a2aa346fed0204812 (diff)
downloadguile-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.c4
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;
}