Fixes bug 206842: syntax tracing not working by default when

syntax-case fenders fail
2008-03-25 21:23:23 -04:00 · 2008-03-25 21:23:23 -04:00 · c01f3049e4
parent c2e20a3a68
commit c01f3049e4
1 changed files with 2 additions and 1 deletions
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@ -3735,7 +3735,8 @@
          (make-syntax-violation 
            (syntax->datum x)
            #f)
-          (extract-position-condition x)))))
+          (extract-position-condition x)
+          (extract-trace x)))))

  (define (extract-trace x)
    (define-condition-type &trace &condition