From 562f12160d1d5008419028f5f6244a424ccbe2cb Mon Sep 17 00:00:00 2001 From: Mike Sperber Date: Wed, 29 Nov 2006 07:16:08 +0000 Subject: [PATCH] Make debugging output from mzc work again. svn: r4976 --- collects/compiler/private/driver.ss | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/collects/compiler/private/driver.ss b/collects/compiler/private/driver.ss index a412467f64..b9e026adbd 100644 --- a/collects/compiler/private/driver.ss +++ b/collects/compiler/private/driver.ss @@ -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)