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

remove extraneous path->string conversion

Browse Source
This commit is contained in:
Robby Findler 2011-09-04 23:53:13 -05:00
parent e4ddd0718a
commit bb71539233
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/compiler/commands/make.rkt
View File

@ -66,7 +66,7 @@
(lambda (p) (lambda (p)
(set! did-one? #t) (set! did-one? #t)
(when (verbose) (when (verbose)
(printf " making ~s\n" (path->string p))))]) (printf " making ~s\n" p)))])
(for ([file source-files]) (for ([file source-files])
(unless (file-exists? file) (unless (file-exists? file)
(error mzc-symbol "file does not exist: ~a" file)) (error mzc-symbol "file does not exist: ~a" file))

2
collects/compiler/main.rkt
View File

@ -510,7 +510,7 @@
(parameterize ([compile-notify-handler (parameterize ([compile-notify-handler
(lambda (path) (lambda (path)
(when (compiler:option:somewhat-verbose) (when (compiler:option:somewhat-verbose)
(printf " making ~s\n" (path->string path))))]) (printf " making ~s\n" path)))])
(apply compile-collection-zos source-files))] (apply compile-collection-zos source-files))]
[(cc) [(cc)
(for ([file source-files]) (for ([file source-files])