commit 2799d88ee34f0672343026c0fc2641ee227b8205 parent 6f663028cba42af3106ce75cd0aeefb2363b069c Author: Georges Dupéron <georges.duperon@gmail.com> Date: Sun, 3 Jun 2018 12:42:05 +0200 Compatibility with Racket: use a wrapper around (make-)attribute-mapping Diffstat:
| M | untyped-only/syntax-parse.rkt | | | 26 | +++++++++++++------------- |
1 file changed, 13 insertions(+), 13 deletions(-)
diff --git a/untyped-only/syntax-parse.rkt b/untyped-only/syntax-parse.rkt @@ -9,22 +9,22 @@ (version-case [(version< (version) "6.90.0.24") - (require (prefix-in - syntax/parse/private/residual)) - (define-for-syntax (compatibility-syntax-or-check syntax?) - syntax?)] + (require (rename-in (prefix-in - syntax/parse/private/residual) + [-make-attribute-mapping + compat-make-attribute-mapping]))] [else (require (rename-in (prefix-in - racket/private/template) - [-attribute-mapping -make-attribute-mapping]) - (only-in syntax/parse/private/residual ;; must be an absolute path + [-attribute-mapping --make-attribute-mapping]) + ;; must be an absolute path + (only-in syntax/parse/private/residual check-attr-value)) (define-for-syntax (-attribute-mapping-syntax? x) ;; attribute-mapping-check is actually false when attribute-mapping-syntax? ;; would have been true (thanks rmculpepper !) (not (-attribute-mapping-check x))) - (define-for-syntax (compatibility-syntax-or-check syntax?) - (if syntax? - #f - (quote-syntax check-attr-value)))]) + (define-for-syntax (compat-make-attribute-mapping valvar name depth syntax?) + (--make-attribute-mapping + valvar name depth (if syntax? #f (quote-syntax check-attr-value))))]) (provide attribute* (for-syntax attribute-info) @@ -95,10 +95,10 @@ (define valvar val) (define-syntax tmp-attr - (-make-attribute-mapping (quote-syntax valvar) - 'name - 'depth - (compatibility-syntax-or-check 'syntax?))) + (compat-make-attribute-mapping (quote-syntax valvar) + 'name + 'depth + 'syntax?)) (define-syntax name (make-syntax-mapping 'depth (quote-syntax tmp-attr)))))