aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/integrands.sc5
1 files changed, 1 insertions, 4 deletions
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)))))