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

Make debugging output from mzc work again.

Browse Source 
svn: r4976
This commit is contained in:
Mike Sperber 2006-11-29 07:16:08 +00:00
parent c6d593419b
commit 562f12160d
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/compiler/private/driver.ss
View File

@ -226,10 +226,8 @@
(when (compiler:option:debug)
(debug "~a[~a.~a]_"
n
(zodiac:location-line
(zodiac:zodiac-start sexp))
(zodiac:location-column
(zodiac:zodiac-start sexp))))
(syntax-line sexp)
(syntax-column sexp)))
(cons sexp (loop (+ n 1))))))))])
(unless (null? compiler:messages) (when (compiler:option:verbose) (newline)))
(compiler:report-messages! #t)