suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix mzc -k output reporting

Browse Source 
svn: r9076
This commit is contained in:
Matthew Flatt 2008-03-24 12:15:03 +00:00
parent f94acb09d5
commit 1be4258c44
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/compiler/main.ss
View File

@ -462,7 +462,7 @@
(printf "\"~a\":\n" file) (printf "\"~a\":\n" file)
(mc file) (mc file)
(let ([dest (append-zo-suffix (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) (build-path (if (symbol? base) 'same base)
"compiled" name)))]) "compiled" name)))])
(printf " [~a \"~a\"]\n" (printf " [~a \"~a\"]\n"