aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-02-10 16:18:59 +0530
committerArun Isaac2021-02-10 16:18:59 +0530
commit734dada2a74517f31c26c2fa96ec13cb46afaf82 (patch)
treed1ae34b7ecab07c5e7a59c59b45529522b56cd14
parente4ac55afd01a3d0f5f9a456b48ca702357d2f7c4 (diff)
downloadnsmc-734dada2a74517f31c26c2fa96ec13cb46afaf82.tar.gz
nsmc-734dada2a74517f31c26c2fa96ec13cb46afaf82.tar.lz
nsmc-734dada2a74517f31c26c2fa96ec13cb46afaf82.zip
Fix collision between solver type and solver type variable.
* src/utils.sc (with-root-fsolver): Fix collision between solver type and solver type variable.
-rw-r--r--src/utils.sc4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/utils.sc b/src/utils.sc
index d73d355..db59e15 100644
--- a/src/utils.sc
+++ b/src/utils.sc
@@ -75,9 +75,9 @@ exact value EXACT."
(return (fabs (- 1 (/ approx exact)))))
(sc-define-syntax* (with-root-fsolver solver solver-type function a b body ...)
- (let ((solver-type (sc-gensym)))
+ (let ((solver-type-var (sc-gensym)))
`(begin
- (let* ((,solver-type (const gsl-root-fsolver-type*) ,solver-type))
+ (let* ((,solver-type-var (const gsl-root-fsolver-type*) ,solver-type))
(with-alloc solver gsl-root-fsolver*
(gsl-root-fsolver-alloc ,solver-type)
gsl-root-fsolver-free