summaryrefslogtreecommitdiff
path: root/libguile/lang.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/lang.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/lang.c')
-rw-r--r--libguile/lang.c4
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