diff options
author | Andy Wingo <wingo@pobox.com> | 2018-06-17 22:42:20 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-06-17 22:42:20 +0200 |
commit | eb5e1b8d5f9cbe2313a04959643b4ee1b0464be8 (patch) | |
tree | dc2476d83e97e1bd1ac871f6fb63ff09330c4668 /libguile/random.c | |
parent | 82d56628878ad414af5175caf98ae62129bff254 (diff) | |
download | guile-eb5e1b8d5f9cbe2313a04959643b4ee1b0464be8.tar.gz |
Remove public SCM_VALIDATE_NIM
* libguile/random.c (scm_random): Remove needless use of
SCM_VALIDATE_NIM.
* libguile/srcprop.c (SCM_VALIDATE_NIM): Move definition here, as this
file is its only use.
* libguile/validate.h (SCM_VALIDATE_NIM): Remove. This was public but
unlikely to be used in the wild.
Diffstat (limited to 'libguile/random.c')
-rw-r--r-- | libguile/random.c | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/libguile/random.c b/libguile/random.c index 75eb53b6a..13af962f0 100644 --- a/libguile/random.c +++ b/libguile/random.c @@ -411,7 +411,6 @@ SCM_DEFINE (scm_random, "random", 1, 1, 0, #error "Cannot deal with this platform's scm_t_bits size" #endif } - SCM_VALIDATE_NIM (1, n); if (SCM_REALP (n)) return scm_from_double (SCM_REAL_VALUE (n) * scm_c_uniform01 (SCM_RSTATE (state))); |