suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix errortrace-conversion problem in HtDP languages

Browse Source
This commit is contained in:
Matthew Flatt 2011-09-14 12:24:27 -06:00
parent 0e2bd262a8
commit 45331d1ae8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/lang/htdp-langs.rkt
View File

@ -1033,11 +1033,11 @@
;; and still running here? ;; and still running here?
(send rep highlight-errors to-highlight #f)))))))) (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^ ;; a member of stacktrace-imports^
;; guarantees that the continuation marks associated with teaching-languages-continuation-mark-key are ;; guarantees that the continuation marks associated with teaching-languages-continuation-mark-key are
;; members of the debug-source type ;; 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)] (let ([source (syntax-source source-stx)]
[line (syntax-line source-stx)] [line (syntax-line source-stx)]
[col (syntax-column source-stx)] [col (syntax-column source-stx)]