summaryrefslogtreecommitdiff
path: root/Biz/Bild/Bessel.c
diff options
context:
space:
mode:
Diffstat (limited to 'Biz/Bild/Bessel.c')
-rw-r--r--Biz/Bild/Bessel.c19
1 files changed, 0 insertions, 19 deletions
diff --git a/Biz/Bild/Bessel.c b/Biz/Bild/Bessel.c
deleted file mode 100644
index 52b4dee..0000000
--- a/Biz/Bild/Bessel.c
+++ /dev/null
@@ -1,19 +0,0 @@
-// : 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);
-}