From 3d59420133dba449c4235c752d0bdbd7f36e675a Mon Sep 17 00:00:00 2001 From: Carl Eastlund Date: Fri, 2 Jul 2010 16:18:18 -0400 Subject: [PATCH] Made test-engine react gracefully to source file names of unexpected representation. --- collects/test-engine/test-display.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/collects/test-engine/test-display.scm b/collects/test-engine/test-display.scm index ae1c077078..1cde93516b 100644 --- a/collects/test-engine/test-display.scm +++ b/collects/test-engine/test-display.scm @@ -304,13 +304,14 @@ (string-append " " (cond - [(or (symbol? (src-file src)) - (is-a? (src-file src) editor<%>)) - (format (string-constant test-engine-at-line-column) line col)] [(path? (src-file src)) (format (string-constant test-engine-in-at-line-column) (path->string (src-file src)) - line col)]))))) + line col)] + [else + (format (string-constant test-engine-at-line-column) + line + col)]))))) (define (highlight-check-error srcloc src-editor) (let* ([src-pos cadddr]