conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/psyntax.expander.ss
View File

@ -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)])))