suzanne.soy/phc-toolkit
1
0
Fork 0
Code Issues4 Pull Requests Actions Packages Projects Releases Wiki Activity

Compatibility with Racket 7: the syntax? field of attribute-mapping is now called check, and holds a different value.

Browse Source
This commit is contained in:
Georges Dupéron 2018-05-17 02:28:45 +02:00
parent 8f4ae46c6e
commit 6f663028cb
1 changed files with 12 additions and 4 deletions

16
untyped-only/syntax-parse.rkt
View File

@ -9,14 +9,22 @@
(version-case
[(version< (version) "6.90.0.24")
(require (prefix-in - syntax/parse/private/residual))]
(require (prefix-in - syntax/parse/private/residual))
(define-for-syntax (compatibility-syntax-or-check syntax?)
syntax?)]
[else
(require (rename-in (prefix-in - racket/private/template)
[-attribute-mapping -make-attribute-mapping]))
[-attribute-mapping -make-attribute-mapping])
(only-in syntax/parse/private/residual ;; must be an absolute path
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)))])
(not (-attribute-mapping-check x)))
(define-for-syntax (compatibility-syntax-or-check syntax?)
(if syntax?
#f
(quote-syntax check-attr-value)))])
(provide attribute*
(for-syntax attribute-info)
@ -90,7 +98,7 @@
(-make-attribute-mapping (quote-syntax valvar)
'name
'depth
'syntax?))
(compatibility-syntax-or-check 'syntax?)))
(define-syntax name
(make-syntax-mapping 'depth
(quote-syntax tmp-attr)))))