diff options
| author | Ben Sima <ben@bsima.me> | 2023-08-17 22:40:10 -0400 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2023-08-17 22:44:07 -0400 |
| commit | 3f9bef378810eb259e9fdc28cc06ebf2be9d6cd8 (patch) | |
| tree | 5169c540f8ad3d1b526c64c21a5f02314a8a26d9 /Biz | |
| parent | 5b7ccf57089abeba5c05a398ecd6c190c8ffc51c (diff) | |
Delete Bessel
Bild does not link libraries, and idk if it ever will, so just delete this for
now.
Diffstat (limited to 'Biz')
| -rw-r--r-- | Biz/Bild/Bessel.c | 19 | ||||
| -rw-r--r-- | Biz/Bild/Bessel.scm | 10 |
2 files changed, 0 insertions, 29 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); -} diff --git a/Biz/Bild/Bessel.scm b/Biz/Bild/Bessel.scm deleted file mode 100644 index ad40834..0000000 --- a/Biz/Bild/Bessel.scm +++ /dev/null @@ -1,10 +0,0 @@ -;; : out bessel.exe -(import (only (rnrs base) assert)) -(load-extension "libguile-bessel" "init_bessel") -(define (main args) - (let ((result (j0 2))) - (display "testing") - (newline) - (display result) - (newline) - (assert (= (j0 2) 0.22389077914123567)))) |