fix errortrace-conversion problem in HtDP languages

This commit is contained in:
Matthew Flatt 2011-09-14 12:24:27 -06:00
parent 0e2bd262a8
commit 45331d1ae8

View File

@ -1033,11 +1033,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)]