From af21f83217c2bd249356ba5088fd3033a3909914 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 20 Apr 2021 17:05:30 +0530
Subject: Return rstat object from volume and integral wrappers.

We return the rstat object so it can be passed on into another
invocation to continue the estimation and refine the estimate to a
closer tolerance.

* scm/nsmc/wrap.scm (volume, integral): Return rsat object.
---
 scm/nsmc/wrap.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scm/nsmc/wrap.scm b/scm/nsmc/wrap.scm
index 9789795..5e4c8be 100644
--- a/scm/nsmc/wrap.scm
+++ b/scm/nsmc/wrap.scm
@@ -367,7 +367,7 @@
                          (list '* double '* unsigned-int double '*))
      (maybe-procedure->extent-oracle extent-oracle)
      true-volume %gsl-random-state dimension rtol stats)
-    (rstat-n stats)))
+    stats))
 
 (define-public (integral integrand extent-oracle true-integral dimension rtol)
   (let ((stats (rstat-alloc)))
@@ -377,7 +377,7 @@
      (maybe-procedure->integrand integrand)
      (maybe-procedure->extent-oracle extent-oracle)
      true-integral %gsl-random-state dimension rtol stats)
-    (rstat-n stats)))
+    stats))
 
 (define-public (volume-importance extent-oracle mean samples-per-cone
                                   solid-angle-factor solid-angle-threshold-exponent-factor)
-- 
cgit v1.2.3