1 files changed, 19 insertions, 0 deletions
diff --git a/Biz/Bild/Bessel.c b/Biz/Bild/Bessel.c
new file mode 100644
index 0000000..524956c
--- /dev/null
+++ b/Biz/Bild/Bessel.c
@@ -0,0 +1,19 @@
+// : dep guile-3.0
+// : lib libbessel-guile
+// : arg -shared
+// : arg -fPIC
+
+#include <math.h>
+#include <libguile.h>
+
+SCM
+j0_wrapper(SCM x)
+{
+  return scm_from_double(j0(scm_to_double(x)));
+}
+
+void
+init_bessel()
+{
+  scm_c_define_gsubr("j0", 1, 0, 0, j0_wrapper);
+}