fix CM+DrRacket cdr bug

2010-07-25 06:17:23 -05:00 · 2010-07-25 06:17:23 -05:00 · 4359783d8b
commit 4359783d8b
parent af6364a58c
1 changed files with 1 additions and 1 deletions
--- 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