diff options
Diffstat (limited to 'scm/nsmc/wrap.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) |