From 11c1a2eaf64acfce03331b4dfb5b266f16534f2c Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Wed, 24 Oct 2018 18:08:24 +0200
Subject: [PATCH] syntax/parse: add regression test, related to #2320, #2330

---
 pkgs/racket-test/tests/stxparse/test.rkt | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/pkgs/racket-test/tests/stxparse/test.rkt b/pkgs/racket-test/tests/stxparse/test.rkt
index 52a4306ca4..4794b27c99 100644
--- a/pkgs/racket-test/tests/stxparse/test.rkt
+++ b/pkgs/racket-test/tests/stxparse/test.rkt
@@ -973,3 +973,16 @@
                   [(:ids) (syntax->datum #'(k ...))]
                   [_ #f])
                 '(a b c)))
+
+;; from Sam TH and Alex Knauth (10/2018)
+(convert-syntax-error
+ (let ()
+   (define-syntax (object stx)
+     (define-syntax-class f
+       [pattern _ #:with x #'ths])
+     (syntax-parse stx
+       [(object f:f)
+        #:with x #'ths
+        #'(define (f.x) ths)]))
+   (object 1)
+   (void)))