aboutsummaryrefslogtreecommitdiff
path: root/scm
diff options
context:
space:
mode:
Diffstat (limited to 'scm')
-rw-r--r--scm/nsmc/wrap.scm6
1 files changed, 6 insertions, 0 deletions
diff --git a/scm/nsmc/wrap.scm b/scm/nsmc/wrap.scm
index 3e94192..ae86413 100644
--- a/scm/nsmc/wrap.scm
+++ b/scm/nsmc/wrap.scm
@@ -49,6 +49,12 @@
(dynamic-func "surface_area_of_ball" lib-nsmc)
(list int)))
+(define-public (log-gamma x)
+ ((pointer->procedure double
+ (dynamic-func "gsl_sf_lngamma" lib-gsl)
+ (list double))
+ x))
+
(define-public (lower-incomplete-gamma s x)
(* ((pointer->procedure double
(dynamic-func "gsl_sf_gamma" lib-gsl)