From e7b1af845b951148b08eea972510a205fa17536d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 12 Sep 2012 12:03:08 -0600 Subject: [PATCH] compiler/cm: repair related to compiled-file-roots --- 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 1996bb946b..d87907411b 100644 --- a/collects/compiler/cm.rkt +++ b/collects/compiler/cm.rkt @@ -732,7 +732,7 @@ (trace-printf "skipping: ~a file does not exist" path) (when delete-zos-when-rkt-file-does-not-exist? (unless (or (null? modes) (null? roots)) - (define to-delete (path-add-suffix (get-compilation-path (car modes) (car roots) path) #".zo")) + (define to-delete (path-add-suffix (get-compilation-path (car modes) roots path) #".zo")) (when (file-exists? to-delete) (trace-printf "deleting: ~s" to-delete) (with-compiler-security-guard (delete-file to-delete)))))]