Fixed a bug causing syntax-error traces to print as

#[annotation ---]
instead of
  #<syntax --- [position ---]>
This commit is contained in:
Abdulaziz Ghuloum 2008-05-02 14:34:03 -04:00
parent d87ced74d1
commit 7e5d053fb2
1 changed files with 1 additions and 1 deletions

View File

@ -3809,7 +3809,7 @@
(make-trace x)
(map f (stx-ae* x)))]
[(annotation? x)
(make-trace x)]
(make-trace (make-stx x '() '() '()))]
[else (condition)])))