fix exprs field for raise-syntax-error*

2013-08-01 21:38:10 -04:00 · 2013-08-01 21:38:10 -04:00 · 7d2c1c0790
commit 7d2c1c0790
parent df30e9c148
1 changed files with 3 additions and 1 deletions
--- a/racket/collects/unstable/error.rkt
+++ b/racket/collects/unstable/error.rkt
@ -87,7 +87,9 @@ TODO
    (raise
     (exn:fail:syntax message
                      (current-continuation-marks)
-                      (if source-stx (cons source-stx extra-stxs) extra-stxs)))))
+                      (cond [sub-stx (cons sub-stx extra-stxs)]
+                            [stx (cons stx extra-stxs)]
+                            [else extra-stxs])))))

 ;; ----