From d74fc80134a5a1101497c614d210e2a438e62286 Mon Sep 17 00:00:00 2001 From: Mike Sperber Date: Sat, 10 May 2008 18:10:48 +0000 Subject: [PATCH] Resolve mcar/car confusion. svn: r9795 --- collects/string-constants/string-constant.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/string-constants/string-constant.ss b/collects/string-constants/string-constant.ss index 5c69848206..bbca0ca7e8 100644 --- 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