From 81154d80fb636a0a114aef18566b408d105ce043 Mon Sep 17 00:00:00 2001 From: Eric Dobson Date: Tue, 12 Nov 2013 21:18:57 -0800 Subject: [PATCH] Make syntax classes use literal sets. --- .../typed-racket-lib/typed-racket/utils/syntax-classes.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/utils/syntax-classes.rkt b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/utils/syntax-classes.rkt index 195cad6365..8fed1dd79e 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/utils/syntax-classes.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/utils/syntax-classes.rkt @@ -5,7 +5,7 @@ syntax/parse (for-syntax racket/base racket/syntax syntax/parse syntax/parse/experimental/template) - (for-template (typecheck internal-forms)) + (only-in (typecheck internal-forms) internal-literals) (for-template racket/base)) (provide type-alias @@ -41,9 +41,10 @@ (begin (begin (define-syntax-class name + #:literal-sets ((internal-literals #:at name)) (?? (?@ #:attributes attributes)) (pattern i:internal - #:with ((~literal lit) . body) #'i.value)) + #:with (lit . body) #'i.value)) (define pred (syntax-parser [(~var _ name) #t]