From bb71539233dcb28f641b5537d61797bee4eabcaa Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 4 Sep 2011 23:53:13 -0500 Subject: [PATCH] remove extraneous path->string conversion --- collects/compiler/commands/make.rkt | 2 +- collects/compiler/main.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/compiler/commands/make.rkt b/collects/compiler/commands/make.rkt index fc237ce2b8..127b521795 100644 --- a/collects/compiler/commands/make.rkt +++ b/collects/compiler/commands/make.rkt @@ -66,7 +66,7 @@ (lambda (p) (set! did-one? #t) (when (verbose) - (printf " making ~s\n" (path->string p))))]) + (printf " making ~s\n" p)))]) (for ([file source-files]) (unless (file-exists? file) (error mzc-symbol "file does not exist: ~a" file)) diff --git a/collects/compiler/main.rkt b/collects/compiler/main.rkt index f8df28abf7..e224a99385 100644 --- a/collects/compiler/main.rkt +++ b/collects/compiler/main.rkt @@ -510,7 +510,7 @@ (parameterize ([compile-notify-handler (lambda (path) (when (compiler:option:somewhat-verbose) - (printf " making ~s\n" (path->string path))))]) + (printf " making ~s\n" path)))]) (apply compile-collection-zos source-files))] [(cc) (for ([file source-files])