From 439bbc6d8f45412fec033675db1a1963d6a46557 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Sat, 2 Jul 2011 14:34:41 -0700 Subject: [PATCH] Another broken test courtesy of refactoring, not testing, and ignoring DrDr. In this case, it seems like the user should not have relied on the function always returning a string (based on the old documentation---not the name, which implies a string comes out), so I've changed the use rather than the function. --- collects/setup/setup-unit.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/setup/setup-unit.rkt b/collects/setup/setup-unit.rkt index 74025617b6..040ea987b7 100644 --- a/collects/setup/setup-unit.rkt +++ b/collects/setup/setup-unit.rkt @@ -188,7 +188,9 @@ ;; this check is also done in compiler/compiler-unit, in compile-directory (and (not (eq? 'all (omitted-paths path getinfo))) (make-cc collection path - (if name (string-append path-name " (" name ")") path-name) + (if name + (format "~a (~a)" path-name name) + path-name) info root-dir info-path shadowing-policy))) (define ((warning-handler v) exn)