diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-17 19:44:01 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-17 19:44:01 +0000 |
commit | 2cd04b426f82731caf45c1dee4b8457f97c0e3f2 (patch) | |
tree | 3856e454a9c2e037227c9a9c68c06492faf81d14 /libguile/scm_validate.h | |
parent | 153511a74c7ff28bd4a959bc1323281c4d981521 (diff) | |
download | guile-2cd04b426f82731caf45c1dee4b8457f97c0e3f2.tar.gz |
* scm_validate.h: Added SCM_VALIDATE_ULONG_COPY,
SCM_VALIDATE_LONG_COPY
* numbers.c: Use SCM_VALIDATE_ULONG_COPY, instead of
SCM_VALIDATE_INUM_COPY to let bigger numbers be used. Rename a
couple of formal arguments (and fix their uses) to make arguments
match the documentation.
Diffstat (limited to 'libguile/scm_validate.h')
-rw-r--r-- | libguile/scm_validate.h | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/libguile/scm_validate.h b/libguile/scm_validate.h index 3a42d2b4f..d1df33394 100644 --- a/libguile/scm_validate.h +++ b/libguile/scm_validate.h @@ -1,4 +1,4 @@ -/* $Id: scm_validate.h,v 1.18 2000-01-14 17:35:13 gjb Exp $ */ +/* $Id: scm_validate.h,v 1.19 2000-01-17 19:44:01 gjb Exp $ */ /* Copyright (C) 1999 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify @@ -138,6 +138,12 @@ do { SCM_ASSERT(SCM_INUMP(k), k, pos, FUNC_NAME); \ cvar = SCM_INUM(k); } while (0) +#define SCM_VALIDATE_ULONG_COPY(pos,k,cvar) \ + do { cvar = SCM_NUM2ULONG(pos,k); } while (0) + +#define SCM_VALIDATE_LONG_COPY(pos,k,cvar) \ + do { cvar = SCM_NUM2LONG(pos,k); } while (0) + #define SCM_VALIDATE_BIGINT(pos,k) SCM_MAKE_VALIDATE(pos,k,BIGP) #define SCM_VALIDATE_INUM_MIN(pos,k,min) \ |