summaryrefslogtreecommitdiff
path: root/libguile/random.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/random.c')
-rw-r--r--libguile/random.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/random.c b/libguile/random.c
index ace6234f0..a6ad9aae8 100644
--- a/libguile/random.c
+++ b/libguile/random.c
@@ -360,7 +360,8 @@ SCM_DEFINE (scm_random, "random", 1, 1, 0,
return scm_make_real (SCM_REAL_VALUE (n)
* scm_c_uniform01 (SCM_RSTATE (state)));
- SCM_VALIDATE_BIGINT (1, n);
+ if (!SCM_BIGP (n))
+ SCM_WRONG_TYPE_ARG (1, n);
return scm_c_random_bignum (SCM_RSTATE (state), n);
}
#undef FUNC_NAME