From fa8fd4b94d5d03eda98a34fb6039925f2f9cd90e Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 20 Apr 2021 17:03:28 +0530
Subject: Do not return volume or integral estimate.

We are already passing in the true volume or integral, and checking
that the estimate is within the required tolerance. What is the point
in returning the estimate to the caller.

* include/extent-sampling.h (volume, integral): Return nothing.
* src/extent-sampling.sc (volume, integral): Return nothing.
* scm/nsmc/wrap.scm (volume, integral): Accept no return value from C
function.
---
 scm/nsmc/wrap.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'scm')

diff --git a/scm/nsmc/wrap.scm b/scm/nsmc/wrap.scm
index 005dd86..9789795 100644
--- a/scm/nsmc/wrap.scm
+++ b/scm/nsmc/wrap.scm
@@ -362,7 +362,7 @@
 
 (define-public (volume extent-oracle true-volume dimension rtol)
   (let ((stats (rstat-alloc)))
-    ((pointer->procedure double
+    ((pointer->procedure void
                          (dynamic-func "volume" lib-nsmc)
                          (list '* double '* unsigned-int double '*))
      (maybe-procedure->extent-oracle extent-oracle)
@@ -371,7 +371,7 @@
 
 (define-public (integral integrand extent-oracle true-integral dimension rtol)
   (let ((stats (rstat-alloc)))
-    ((pointer->procedure double
+    ((pointer->procedure void
                          (dynamic-func "integral" lib-nsmc)
                          (list '* '* double '* unsigned-int double '*))
      (maybe-procedure->integrand integrand)
-- 
cgit v1.2.3