Biz/Bild/Bessel.scm


1
2
3
4
5
6
7
8
9
10

;; : 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))))