From 3f9bef378810eb259e9fdc28cc06ebf2be9d6cd8 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
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

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))))
-- 
cgit v1.2.3