scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug fix by Richard for finite types used within macros.

This commit is contained in:
mainzelm 2001-07-09 14:15:51 +00:00
parent 68eb897e20
commit 569dbe6649
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/big/finite-type.scm
View File

@ -124,7 +124,7 @@
(let loop ((names ',names) (i 0)) (let loop ((names ',names) (i 0))
(cond ((null? names) (cond ((null? names)
form1) form1)
((eq? elt (car names)) ((compare1 elt (car names))
(list (,%code-quote ,%vector-ref) (rename1 ',elts) i)) (list (,%code-quote ,%vector-ref) (rename1 ',elts) i))
(else (else
(loop (cdr names) (+ i 1)))))))))) (loop (cdr names) (+ i 1))))))))))