diff options
| -rw-r--r-- | src/integrands.sc | 5 |
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))))) |