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.

This commit is contained in:
Jay McCarthy 2011-07-02 14:34:41 -07:00
parent 8d6827e741
commit 439bbc6d8f

View File

@ -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)