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) (when (compiler:option:debug)
(debug "~a[~a.~a]_" (debug "~a[~a.~a]_"
n n
(zodiac:location-line (syntax-line sexp)
(zodiac:zodiac-start sexp)) (syntax-column sexp)))
(zodiac:location-column
(zodiac:zodiac-start sexp))))
(cons sexp (loop (+ n 1))))))))]) (cons sexp (loop (+ n 1))))))))])
(unless (null? compiler:messages) (when (compiler:option:verbose) (newline))) (unless (null? compiler:messages) (when (compiler:option:verbose) (newline)))
(compiler:report-messages! #t) (compiler:report-messages! #t)