From 4359783d8b23cda757c8c954525b8fcdda9b6306 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 25 Jul 2010 06:17:23 -0500 Subject: [PATCH] fix CM+DrRacket cdr bug --- collects/compiler/cm.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/compiler/cm.rkt b/collects/compiler/cm.rkt index fbf0331a93..ab896228cc 100644 --- a/collects/compiler/cm.rkt +++ b/collects/compiler/cm.rkt @@ -84,7 +84,7 @@ (values (path-add-suffix name #".zo") (cdr main-zo-date+mode)) (values (path-add-suffix (rkt->ss name) #".zo") - (cdr (cdr alt-zo-date+mode))))]) + (cdr alt-zo-date+mode)))]) (build-path base mode name)))]) (cond [(and zo-date