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

Display correction

Browse Source 
svn: r9466
This commit is contained in:
Kathy Gray 2008-04-24 22:55:40 +00:00
parent 6f0314b40c
commit 2d12ca4a62
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/test-engine/test-display.scm
View File

@ -149,7 +149,7 @@
(string-append (string-append
(cond (cond
[(symbol? (src-file src)) (string-append " At ")] [(symbol? (src-file src)) (string-append " At ")]
[(path? (src-file src)) (string-append " In " (src-file src) " at ")] [(path? (src-file src)) (string-append " In " (path->string (src-file src)) " at ")]
[(is-a? (src-file src) editor<%>) " At "]) [(is-a? (src-file src) editor<%>) " At "])
"line " (number->string (src-line src)) "line " (number->string (src-line src))
" column " (number->string (src-col src))))) " column " (number->string (src-col src)))))