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

Fixes bug 206842: syntax tracing not working by default when 

syntax-case fenders fail
This commit is contained in:
Abdulaziz Ghuloum 2008-03-25 21:23:23 -04:00
parent c2e20a3a68
commit c01f3049e4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/psyntax.expander.ss
View File

@ -3735,7 +3735,8 @@
(make-syntax-violation (make-syntax-violation
(syntax->datum x) (syntax->datum x)
#f) #f)
(extract-position-condition x))))) (extract-position-condition x)
(extract-trace x)))))
(define (extract-trace x) (define (extract-trace x)
(define-condition-type &trace &condition (define-condition-type &trace &condition