suzanne.soy/subtemplate
1
0
Fork 0
Code Issues 2 Pull Requests Actions Packages Projects Releases Wiki Activity

Compatibility with Racket 7: make-attribute-mapping

Browse Source
This commit is contained in:
Georges Dupéron 2018-06-03 01:42:26 +02:00
parent 4d5c43ada4
commit 0b424fdc6f
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
private/copy-attribute.rkt
View File

@ -3,7 +3,8 @@
(provide copy-raw-syntax-attribute (provide copy-raw-syntax-attribute
attribute-val/c) attribute-val/c)
(require stxparse-info/current-pvars (require version-case
stxparse-info/current-pvars
phc-toolkit/untyped phc-toolkit/untyped
stxparse-info/parse stxparse-info/parse
(for-syntax "optcontract.rkt" (for-syntax "optcontract.rkt"
@ -11,11 +12,19 @@
phc-toolkit/untyped phc-toolkit/untyped
racket/function racket/function
stxparse-info/parse) stxparse-info/parse)
(only-in stxparse-info/parse/private/residual make-attribute-mapping)
(for-syntax (only-in auto-syntax-e/utils make-auto-pvar))) (for-syntax (only-in auto-syntax-e/utils make-auto-pvar)))
(version-case
[(version< (version) "6.90.0.24")
(require (only-in stxparse-info/parse/private/residual
[make-attribute-mapping
compat-make-attribute-mapping]))]
[else
(require (only-in stxparse-info/parse/private/residual ;; must be an absolute path
check-attr-value
[attribute-mapping -make-attribute-mapping]))
(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))))])
(begin-for-syntax (begin-for-syntax
(define/contract (nest-map f last n) (define/contract (nest-map f last n)
@ -69,7 +78,7 @@
#'(begin #'(begin
(define vtmp attr-value);; TODO: if already an id, no need to copy it (unless the id is mutated) (define vtmp attr-value);; TODO: if already an id, no need to copy it (unless the id is mutated)
(define-syntax stmp (define-syntax stmp
(make-attribute-mapping (quote-syntax vtmp) (compat-make-attribute-mapping (quote-syntax vtmp)
'name 'ellipsis-depth 'syntax?)) 'name 'ellipsis-depth 'syntax?))
(define-syntax name (define-syntax name
(make-auto-pvar 'ellipsis-depth (quote-syntax stmp))) (make-auto-pvar 'ellipsis-depth (quote-syntax stmp)))