suzanne.soy/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
This commit is contained in:
Vincent St-Amour 2011-06-16 11:46:41 -04:00
parent dda1b1c880
commit 9dbca39cfe
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 #lang typed/racket

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

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