From 3f9bef378810eb259e9fdc28cc06ebf2be9d6cd8 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Thu, 17 Aug 2023 22:40:10 -0400 Subject: Delete Bessel Bild does not link libraries, and idk if it ever will, so just delete this for now. --- Biz/Bild/Bessel.c | 19 ------------------- Biz/Bild/Bessel.scm | 10 ---------- 2 files changed, 29 deletions(-) delete mode 100644 Biz/Bild/Bessel.c delete mode 100644 Biz/Bild/Bessel.scm (limited to 'Biz/Bild') 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 -#include - -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)))) -- cgit v1.2.3