diff options
Diffstat (limited to 'scm')
| -rw-r--r-- | scm/nsmc/wrap.scm | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/scm/nsmc/wrap.scm b/scm/nsmc/wrap.scm index 33c1bee..005dd86 100644 --- a/scm/nsmc/wrap.scm +++ b/scm/nsmc/wrap.scm @@ -369,16 +369,6 @@ true-volume %gsl-random-state dimension rtol stats) (rstat-n stats))) -(define-public (volume-window extent-oracle true-volume dimension rtol) - (let ((samples (make-c-struct (list unsigned-int) (list 0)))) - ((pointer->procedure double - (dynamic-func "volume_window" lib-nsmc) - (list '* double '* unsigned-int double '*)) - (maybe-procedure->extent-oracle extent-oracle) - true-volume %gsl-random-state dimension rtol samples) - (match (parse-c-struct samples (list unsigned-int)) - ((samples) samples)))) - (define-public (integral integrand extent-oracle true-integral dimension rtol) (let ((stats (rstat-alloc))) ((pointer->procedure double |