aboutsummaryrefslogtreecommitdiff
path: root/scm
diff options
context:
space:
mode:
Diffstat (limited to 'scm')
-rw-r--r--scm/nsmc/wrap.scm10
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