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

Avoid spurious quoting.

Browse Source 
Use display instead of printf.

svn: r14936
This commit is contained in:
Sam Tobin-Hochstadt 2009-05-22 20:23:15 +00:00
parent 2ee1d2b596
commit e92a8dd2f5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/typed-scheme/typed-scheme.ss
View File

@ -135,11 +135,11 @@
[(tc-results: t) [(tc-results: t)
(format "- : ~a\n" type)] (format "- : ~a\n" type)]
[x (int-err "bad type result: ~a" x)])]) [x (int-err "bad type result: ~a" x)])])
(if #'ty-str (if ty-str
#`(let ([type '#,ty-str]) #`(let ([type '#,ty-str])
(begin0 (begin0
#,body2 #,body2
(printf type))) (display type)))
body2))]))])) body2))]))]))