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