From 4d703fa2e2be0b9a0aa6788696b66afdded4ff24 Mon Sep 17 00:00:00 2001 From: Alex Knauth Date: Mon, 21 Sep 2015 20:46:29 -0400 Subject: [PATCH] syntax/parse: allow pattern expanders that don't start with tilde --- racket/collects/syntax/parse/private/rep.rkt | 2 -- 1 file changed, 2 deletions(-) diff --git a/racket/collects/syntax/parse/private/rep.rkt b/racket/collects/syntax/parse/private/rep.rkt index 35d9277b5b..10e2e4cfaf 100644 --- a/racket/collects/syntax/parse/private/rep.rkt +++ b/racket/collects/syntax/parse/private/rep.rkt @@ -469,7 +469,6 @@ [id (and (identifier? #'id) (not-shadowed? #'id) - (not (safe-name? #'id)) (pattern-expander? (syntax-local-value #'id (λ () #f)))) (let* ([proc (pattern-expander-proc (syntax-local-value #'id))] [introducer (make-syntax-introducer)] @@ -482,7 +481,6 @@ [(id . rst) (and (identifier? #'id) (not-shadowed? #'id) - (not (safe-name? #'id)) (pattern-expander? (syntax-local-value #'id (λ () #f)))) (let* ([proc (pattern-expander-proc (syntax-local-value #'id))] [introducer (make-syntax-introducer)]