From 1241246fd8a7babb18b163662b356bdf63c887c3 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 8 Apr 2021 15:38:53 +0530
Subject: Wrap gsl_sf_lngamma.

* scm/nsmc/wrap.scm (log-gamma): New function.
---
 scm/nsmc/wrap.scm | 6 ++++++
 1 file changed, 6 insertions(+)

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)
-- 
cgit v1.2.3