Resolve mcar/car confusion.

svn: r9795
2008-05-10 18:10:48 +00:00 · 2008-05-10 18:10:48 +00:00 · d74fc80134
commit d74fc80134
parent 24739359e4
1 changed files with 1 additions and 1 deletions
--- a/collects/string-constants/string-constant.ss
+++ b/collects/string-constants/string-constant.ss
@ -135,7 +135,7 @@
                                       [(memf (lambda (ent) (equal? (mcar ent) no-warning-cache-key)) warning-table)
                                        =>
                                        (lambda (x)
-                                          (let ([ent (mcar x)])
+                                          (let ([ent (car x)])
                                            (set-mcdr! ent (cons (list constant1 value1) (mcdr ent)))))]
                                       [else
                                        (set! warning-table (cons (mcons no-warning-cache-key