Attempt to fix a compatibility issue wuth racket 7
The private identifier -attribute-mapping-syntax? does not exist in the new version of syntax/parse
This commit is contained in:
parent
4694f87085
commit
c459bff32b
3
info.rkt
3
info.rkt
|
@ -7,7 +7,8 @@
|
||||||
"typed-racket-more"
|
"typed-racket-more"
|
||||||
"reprovide-lang"
|
"reprovide-lang"
|
||||||
"type-expander"
|
"type-expander"
|
||||||
"hyper-literate"))
|
"hyper-literate"
|
||||||
|
"version-case"))
|
||||||
(define build-deps '("scribble-lib"
|
(define build-deps '("scribble-lib"
|
||||||
"racket-doc"
|
"racket-doc"
|
||||||
"typed-racket-doc"
|
"typed-racket-doc"
|
||||||
|
|
|
@ -5,7 +5,17 @@
|
||||||
racket/contract
|
racket/contract
|
||||||
racket/syntax)
|
racket/syntax)
|
||||||
syntax/parse
|
syntax/parse
|
||||||
(prefix-in - syntax/parse/private/residual))
|
version-case)
|
||||||
|
|
||||||
|
(version-case
|
||||||
|
[(version< (version) "6.90.0.24")
|
||||||
|
(require (prefix-in - syntax/parse/private/residual))]
|
||||||
|
[else
|
||||||
|
(require (prefix-in - racket/private/template))
|
||||||
|
(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)))])
|
||||||
|
|
||||||
(provide attribute*
|
(provide attribute*
|
||||||
(for-syntax attribute-info)
|
(for-syntax attribute-info)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user