diff options
Diffstat (limited to 'scm')
| -rw-r--r-- | scm/nsmc/wrap.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scm/nsmc/wrap.scm b/scm/nsmc/wrap.scm index e6d9a47..853dfb6 100644 --- a/scm/nsmc/wrap.scm +++ b/scm/nsmc/wrap.scm @@ -188,10 +188,10 @@ %gsl-random-state vector) vector)) -(define-public (subsampling-random-vector mean max-theta) +(define-public (cone-random-vector mean max-theta) (let ((vector (vector-alloc (vector-size mean)))) ((pointer->procedure void - (dynamic-func "subsampling_random_vector" lib-nsmc) + (dynamic-func "cone_random_vector" lib-nsmc) (list '* '* double '*)) %gsl-random-state mean max-theta vector) vector)) |