fix errortrace-conversion problem in HtDP languages
This commit is contained in:
parent
0e2bd262a8
commit
45331d1ae8
|
@ -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)]
|
||||
|
|
Loading…
Reference in New Issue
Block a user