diff options
| author | Arun Isaac | 2021-02-10 16:18:59 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-02-10 16:18:59 +0530 |
| commit | 734dada2a74517f31c26c2fa96ec13cb46afaf82 (patch) | |
| tree | d1ae34b7ecab07c5e7a59c59b45529522b56cd14 | |
| parent | e4ac55afd01a3d0f5f9a456b48ca702357d2f7c4 (diff) | |
| download | nsmc-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.sc | 4 |
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 |