From 9266f4ce5213ea3197484ca22cb82ca082382fc6 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 20 Apr 2021 16:52:35 +0530
Subject: Return the first accurate estimate.

* include/extent-sampling.h (volume_window): Delete function.
* src/extent-sampling.sc (integral, volume): Return the first accurate
estimate.
(volume-window): Delete function.
* scm/nsmc/wrap.scm (volume-window): Delete function.
---
 scm/nsmc/wrap.scm | 10 ----------
 1 file changed, 10 deletions(-)

(limited to 'scm')

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
-- 
cgit v1.2.3