From 6614ecbb65b71a7d9745a510189a05ff6b69f770 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 24 Feb 2021 13:23:15 +0530
Subject: Remove workaround for sph-sc negation bug.

The bug has been fixed upstream.

* src/integrands.sc (gaussian-integrand): Remove workaround for sph-sc
negation bug.
---
 src/integrands.sc | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/integrands.sc b/src/integrands.sc
index 750530c..920d257 100644
--- a/src/integrands.sc
+++ b/src/integrands.sc
@@ -10,10 +10,7 @@
                            r))))
 
 (define (gaussian-integrand r x -params) (double double (const gsl-vector*) void*)
-  ;; This is a workaround to fix negation bug in sph-sc. See
-  ;; https://github.com/sph-mn/sph-sc/issues/5 . TODO: Remove
-  ;; workaround once bug is fixed upstream.
-  (return (exp (- 0 (/ (gsl-pow-2 r) 2)))))
+  (return (exp (- (/ (gsl-pow-2 r) 2)))))
 
 (define (x-coordinate-integrand r x -params) (double double (const gsl-vector*) void*)
   (return (fabs (* r (gsl-vector-get x 0)))))
-- 
cgit v1.2.3