diff options
| -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 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) |