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

Use write instead of display for syntax in logs.

Browse Source 
original commit: 9dbca39cfe20876b131592871670f5567471fcf7
This commit is contained in:
Vincent St-Amour 2011-06-16 11:46:41 -04:00
parent f2c1f3c7aa
commit dadfa4b62d
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/typed-scheme/optimizer/tests/silent-dead-branch.rkt
View File

@ -1,6 +1,6 @@
#;
(
TR opt: silent-dead-branch.rkt 12:0 (when (number? 1) 1) -- dead then branch
TR opt: silent-dead-branch.rkt 12:0 (when (number? "1") 1) -- dead then branch
)
#lang typed/racket

2
collects/typed-scheme/optimizer/logging.rkt
View File

@ -30,7 +30,7 @@
(define (gen-log-message msg stx from)
(let ([stx (locate-stx stx)])
(format "~a: ~a ~a ~a -- ~a"
(format "~a: ~a ~a ~s -- ~a"
from
(syntax-source-file-name stx)
(line+col->string stx)