Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

compare record field names with eq?

Browse source 
Fixes issue #367.
This commit is contained in:
Alex Shinn 2016-06-25 22:53:37 +09:00
parent d0cb74bef4
commit 62ca18c1a4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/srfi/9.scm
View file

@ -64,7 +64,7 @@
(cond (cond
((null? f) ((null? f)
(error "unknown record field in constructor" (car ls) fields)) (error "unknown record field in constructor" (car ls) fields))
((not (compare (car ls) (caar f))) ((not (eq? (car ls) (caar f)))
(lp2 (cdr f))) (lp2 (cdr f)))
((pair? (cddr (car f))) ((pair? (cddr (car f)))
(lp (cdr ls) (lp (cdr ls)