diff options
Diffstat (limited to 'libguile/hash.c')
-rw-r--r-- | libguile/hash.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/hash.c b/libguile/hash.c index e74d089e9..7c8d379a2 100644 --- a/libguile/hash.c +++ b/libguile/hash.c @@ -144,7 +144,7 @@ scm_ihashq (SCM obj, unsigned int n) } -SCM_DEFINE(scm_hashq, "hashq", 2, 0, 0, +SCM_DEFINE (scm_hashq, "hashq", 2, 0, 0, (SCM obj, SCM n), "@deffnx primitive hashv key size @deffnx primitive hash key size @@ -154,7 +154,7 @@ table. Each function returns an integer in the range 0 to @var{size}-1.") #define FUNC_NAME s_scm_hashq { - SCM_VALIDATE_INUM_MIN(2,n,0); + SCM_VALIDATE_INUM_MIN (2,n,0); return SCM_MAKINUM(scm_ihashq (obj, SCM_INUM (n))); } #undef FUNC_NAME @@ -176,12 +176,12 @@ scm_ihashv (SCM obj, unsigned int n) } -SCM_DEFINE(scm_hashv, "hashv", 2, 0, 0, +SCM_DEFINE (scm_hashv, "hashv", 2, 0, 0, (SCM obj, SCM n), "") #define FUNC_NAME s_scm_hashv { - SCM_VALIDATE_INUM_MIN(2,n,0); + SCM_VALIDATE_INUM_MIN (2,n,0); return SCM_MAKINUM(scm_ihashv (obj, SCM_INUM (n))); } #undef FUNC_NAME @@ -196,12 +196,12 @@ scm_ihash (SCM obj, unsigned int n) return (unsigned int)scm_hasher (obj, n, 10); } -SCM_DEFINE(scm_hash, "hash", 2, 0, 0, +SCM_DEFINE (scm_hash, "hash", 2, 0, 0, (SCM obj, SCM n), "") #define FUNC_NAME s_scm_hash { - SCM_VALIDATE_INUM_MIN(2,n,0); + SCM_VALIDATE_INUM_MIN (2,n,0); return SCM_MAKINUM(scm_ihash(obj, SCM_INUM(n))); } #undef FUNC_NAME |