diff options
author | Andy Wingo <wingo@pobox.com> | 2015-01-22 13:04:34 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2015-01-22 13:04:34 +0100 |
commit | 086bbcc874f230c709b7c0a46439c2fd3f7cd37c (patch) | |
tree | 9a7d42c5a3c7880c50ff4d679ae2e8cf91149dfc /libguile/validate.h | |
parent | d5dffec4ffcb93ab649acb2b6f7d8a013ba0e10e (diff) | |
parent | fdd319e9bd4121d844662d3d8ccc69b462b60840 (diff) | |
download | guile-086bbcc874f230c709b7c0a46439c2fd3f7cd37c.tar.gz |
Merge commit 'fdd319e9bd4121d844662d3d8ccc69b462b60840'
Diffstat (limited to 'libguile/validate.h')
-rw-r--r-- | libguile/validate.h | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/libguile/validate.h b/libguile/validate.h index 6d57b9e32..516a6f750 100644 --- a/libguile/validate.h +++ b/libguile/validate.h @@ -92,6 +92,8 @@ #define SCM_NUM2ULONG_LONG_DEF(pos, arg, def) \ (SCM_UNBNDP (arg) ? def : scm_to_ulong_long (arg)) +#define SCM_NUM2SIZE(pos, arg) (scm_to_size_t (arg)) + #define SCM_NUM2FLOAT(pos, arg) ((float) scm_to_double (arg)) #define SCM_NUM2DOUBLE(pos, arg) (scm_to_double (arg)) @@ -201,6 +203,11 @@ cvar = SCM_NUM2LONG (pos, k); \ } while (0) +#define SCM_VALIDATE_SIZE_COPY(pos, k, cvar) \ + do { \ + cvar = SCM_NUM2SIZE (pos, k); \ + } while (0) + #define SCM_VALIDATE_FLOAT_COPY(pos, k, cvar) \ do { \ cvar = SCM_NUM2FLOAT (pos, k); \ |