From 734dada2a74517f31c26c2fa96ec13cb46afaf82 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 10 Feb 2021 16:18:59 +0530
Subject: Fix collision between solver type and solver type variable.

* src/utils.sc (with-root-fsolver): Fix collision between solver type
and solver type variable.
---
 src/utils.sc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

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