fix mzc -k output reporting

svn: r9076
2008-03-24 12:15:03 +00:00 · 2008-03-24 12:15:03 +00:00 · 1be4258c44
commit 1be4258c44
parent f94acb09d5
1 changed files with 1 additions and 1 deletions
--- a/collects/compiler/main.ss
+++ b/collects/compiler/main.ss
@ -462,7 +462,7 @@
           (printf "\"~a\":\n" file)
           (mc file)
           (let ([dest (append-zo-suffix
-                        (let-values ([(base name dir?) (split-path name)])
+                        (let-values ([(base name dir?) (split-path file)])
                          (build-path (if (symbol? base) 'same base)
                                      "compiled" name)))])
             (printf " [~a \"~a\"]\n"