www

commit e92156e78a5fa98d7e6cc17621a8a3bb7cdd83fd
parent 095c47c6cb8da6086585d8fb9d6317c34110806e
Author: AlexKnauth <alexander@knauth.org>
Date:   Tue, 25 Apr 2017 13:06:40 -0700

provide more pattern expanders for stlc+union base types

Diffstat:
M
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
@@ -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