diff options
| author | Arun Isaac | 2021-04-20 17:03:28 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-04-20 17:04:32 +0530 |
| commit | fa8fd4b94d5d03eda98a34fb6039925f2f9cd90e (patch) | |
| tree | 5a288e4f0c102614d8e7b5c670f5d37c39ec15ae /scm | |
| parent | 9266f4ce5213ea3197484ca22cb82ca082382fc6 (diff) | |
| download | nsmc-fa8fd4b94d5d03eda98a34fb6039925f2f9cd90e.tar.gz nsmc-fa8fd4b94d5d03eda98a34fb6039925f2f9cd90e.tar.lz nsmc-fa8fd4b94d5d03eda98a34fb6039925f2f9cd90e.zip | |
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.
Diffstat (limited to 'scm')
| -rw-r--r-- | scm/nsmc/wrap.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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) |