aboutsummaryrefslogtreecommitdiff
path: root/src/nd-random.sc
diff options
context:
space:
mode:
Diffstat (limited to 'src/nd-random.sc')
-rw-r--r--src/nd-random.sc4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/nd-random.sc b/src/nd-random.sc
index 3d96113..a243a04 100644
--- a/src/nd-random.sc
+++ b/src/nd-random.sc
@@ -55,13 +55,13 @@ dx. THETA should be in [0,pi]."
(beta-inc-unnormalized 0.5 (* 0.5 (+ m 1)) (gsl-pow-2 (cos theta))))
2)))))
-(define (planar-angle->solid-angle planar-angle dimension) ((static double) double (unsigned int))
+(define (planar-angle->solid-angle planar-angle dimension) (double double (unsigned int))
(return (/ (* 2
(pow M-PI (* 0.5 (- dimension 1)))
(incomplete-wallis-integral planar-angle (- dimension 2)))
(gsl-sf-gamma (* 0.5 (- dimension 1))))))
-(define (solid-angle->planar-angle solid-angle dimension) ((static double) double (unsigned int))
+(define (solid-angle->planar-angle solid-angle dimension) (double double (unsigned int))
(define (f planar-angle params) (double double void*)
(return (- (planar-angle->solid-angle planar-angle dimension)
solid-angle)))