From 7d2c1c0790fae57330d621bd619f71ee094d6088 Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Thu, 1 Aug 2013 21:38:10 -0400
Subject: [PATCH] fix exprs field for raise-syntax-error*

---
 racket/collects/unstable/error.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/racket/collects/unstable/error.rkt b/racket/collects/unstable/error.rkt
index 17854d3ec3..e5dc3a1dfc 100644
--- 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])))))
 
 ;; ----