Fixed a bug causing syntax-error traces to print as
#[annotation ---] instead of #<syntax --- [position ---]>
This commit is contained in:
parent
d87ced74d1
commit
7e5d053fb2
scheme
|
@ -3809,7 +3809,7 @@
|
||||||
(make-trace x)
|
(make-trace x)
|
||||||
(map f (stx-ae* x)))]
|
(map f (stx-ae* x)))]
|
||||||
[(annotation? x)
|
[(annotation? x)
|
||||||
(make-trace x)]
|
(make-trace (make-stx x '() '() '()))]
|
||||||
[else (condition)])))
|
[else (condition)])))
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue