diff options
Diffstat (limited to 'Biz/Bild/Bessel.c')
-rw-r--r-- | Biz/Bild/Bessel.c | 19 |
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); -} |