From e92156e78a5fa98d7e6cc17621a8a3bb7cdd83fd Mon Sep 17 00:00:00 2001
From: AlexKnauth <alexander@knauth.org>
Date: Tue, 25 Apr 2017 13:06:40 -0700
Subject: [PATCH] provide more pattern expanders for stlc+union base types

---
 turnstile/examples/stlc+union.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/turnstile/examples/stlc+union.rkt b/turnstile/examples/stlc+union.rkt
index cf1cc41..b209778 100644
--- a/turnstile/examples/stlc+union.rkt
+++ b/turnstile/examples/stlc+union.rkt
@@ -30,7 +30,7 @@
                     [add1 : (→ Int Int)]
                     [sub1 : (→ Int Int)])
          #%datum #%app
-         (for-syntax ~True ~False))
+         (for-syntax ~PosInt ~Zero ~NegInt ~True ~False))
 
 (define-syntax define-named-type-alias
   (syntax-parser