diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-11-02 19:36:50 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-11-02 19:36:50 +0000 |
commit | e911caec2b7317501aff46c47d51ec022eba7993 (patch) | |
tree | 3c7d5cfbf8908c0f93231e05ab3cee19c22c4a24 | |
parent | 90d4368c88e5dc8dcfd0a54c35872b65a691333e (diff) | |
download | guile-e911caec2b7317501aff46c47d51ec022eba7993.tar.gz |
(scm_random_solid_sphere_x, scm_random_hollow_sphere_x): Do not
validate vector argument, this is already done elsewhere.
-rw-r--r-- | libguile/random.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/libguile/random.c b/libguile/random.c index dcc93e6c3..6c1e75d05 100644 --- a/libguile/random.c +++ b/libguile/random.c @@ -491,7 +491,6 @@ SCM_DEFINE (scm_random_solid_sphere_x, "random:solid-sphere!", 1, 1, 0, "The sum of the squares of the numbers is returned.") #define FUNC_NAME s_scm_random_solid_sphere_x { - SCM_VALIDATE_VECTOR_OR_DVECTOR (1, v); if (SCM_UNBNDP (state)) state = SCM_VARIABLE_REF (scm_var_random_state); SCM_VALIDATE_RSTATE (2, state); @@ -514,7 +513,6 @@ SCM_DEFINE (scm_random_hollow_sphere_x, "random:hollow-sphere!", 1, 1, 0, "unit n-sphere.") #define FUNC_NAME s_scm_random_hollow_sphere_x { - SCM_VALIDATE_VECTOR_OR_DVECTOR (1, v); if (SCM_UNBNDP (state)) state = SCM_VARIABLE_REF (scm_var_random_state); SCM_VALIDATE_RSTATE (2, state); |