diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-05-18 08:47:52 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-05-18 08:47:52 +0000 |
commit | af45e3b06accc40d2c92918d5901afb793e8b247 (patch) | |
tree | 36558f693d2e1bdbcd89d8ff533c8852abf47435 /libguile/validate.h | |
parent | c8a54c4b87d561a6a4cc6464846af51f8215ef1e (diff) | |
download | guile-af45e3b06accc40d2c92918d5901afb793e8b247.tar.gz |
* Unified some rest argument checking and handling.
Diffstat (limited to 'libguile/validate.h')
-rw-r--r-- | libguile/validate.h | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/libguile/validate.h b/libguile/validate.h index bcd7328f6..b9f81aa89 100644 --- a/libguile/validate.h +++ b/libguile/validate.h @@ -1,4 +1,4 @@ -/* $Id: validate.h,v 1.10 2000-05-15 11:47:48 dirk Exp $ */ +/* $Id: validate.h,v 1.11 2000-05-18 08:47:52 dirk Exp $ */ /* Copyright (C) 1999, 2000 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify @@ -100,6 +100,15 @@ +#define SCM_VALIDATE_REST_ARGUMENT(x) \ + do { \ + if (SCM_DEBUG_REST_ARGUMENT) { \ + if (scm_ilength (x) < 0) { \ + SCM_MISC_ERROR ("Rest arguments do not form a proper list.", SCM_EOL); \ + } \ + } \ + } while (0) + #define SCM_VALIDATE_NIM(pos, scm) SCM_MAKE_VALIDATE (pos, scm, NIMP) #define SCM_VALIDATE_BOOL(pos, flag) SCM_MAKE_VALIDATE(pos, flag, BOOLP) |