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

Slight bug fix for path display

Browse Source 
svn: r9162
This commit is contained in:
Kathy Gray 2008-04-04 12:10:33 +00:00
parent e26136ad6e
commit 4047d38184
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

@ -369,7 +369,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)))))