Update of /cvsroot/scsh/scsh-0.6/scheme/big
In directory usw-pr-cvs1:/tmp/cvs-serv24747/scheme/big
Modified Files:
finite-type.scm
Log Message:
Bug fix by Richard for finite types used within macros.
Index: finite-type.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scheme/big/finite-type.scm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** finite-type.scm 1999/09/14 12:44:55 1.1.1.1
--- finite-type.scm 2001/07/09 14:15:51 1.2
***************
*** 125,129 ****
(cond ((null? names)
form1)
! ((eq? elt (car names))
(list (,%code-quote ,%vector-ref) (rename1 ',elts) i))
(else
--- 125,129 ----
(cond ((null? names)
form1)
! ((compare1 elt (car names))
(list (,%code-quote ,%vector-ref) (rename1 ',elts) i))
(else
|