From e6378063060efe9b4ec45430838b37cb7392686a Mon Sep 17 00:00:00 2001 From: Mike Sperber Date: Fri, 16 Sep 2011 09:02:25 +0200 Subject: [PATCH] fix errortrace-conversion problem in DMdA languages Follow commit 45331d1ae8ad5f297d2ca0875fb6b623d59c4130 for the HtDP languages. --- collects/deinprogramm/deinprogramm-langs.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/deinprogramm/deinprogramm-langs.rkt b/collects/deinprogramm/deinprogramm-langs.rkt index 08935ec5cb..bde5c922e7 100644 --- a/collects/deinprogramm/deinprogramm-langs.rkt +++ b/collects/deinprogramm/deinprogramm-langs.rkt @@ -1226,11 +1226,11 @@ ;; and still running here? (send rep highlight-errors to-highlight #f)))))))) - ;; with-mark : syntax syntax -> syntax + ;; with-mark : syntax syntax exact-nonnegative-integer -> syntax ;; a member of stacktrace-imports^ ;; guarantees that the continuation marks associated with teaching-languages-continuation-mark-key are ;; members of the debug-source type - (define (with-mark source-stx expr) + (define (with-mark source-stx expr phase) (let ([source (syntax-source source-stx)] [line (syntax-line source-stx)] [col (syntax-column source-stx)]