From a4a0ffd97f57f51c6e5df267ef5b5c84e8eedfe2 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 10 Feb 2021 14:30:31 +0530
Subject: Declare planar, solid angle conversion functions as public.

* src/nd-random.sc (planar-angle->solid-angle,
solid-angle->planar-angle): Declare these to be a part of the public
interface of the module.
---
 src/nd-random.sc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

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)))
-- 
cgit v1.2.3