Compatibility with Racket 7: syntax/parse/private/residual → racket/private/template
This commit is contained in:
parent
0b424fdc6f
commit
23945c0891
|
@ -10,7 +10,7 @@
|
||||||
(require stxparse-info/current-pvars
|
(require stxparse-info/current-pvars
|
||||||
phc-toolkit/untyped
|
phc-toolkit/untyped
|
||||||
subtemplate/private/copy-attribute
|
subtemplate/private/copy-attribute
|
||||||
(prefix-in - syntax/parse/private/residual)
|
version-case
|
||||||
racket/stxparam
|
racket/stxparam
|
||||||
"lifted-variables-communication.rkt"
|
"lifted-variables-communication.rkt"
|
||||||
(for-syntax "optcontract.rkt"
|
(for-syntax "optcontract.rkt"
|
||||||
|
@ -24,6 +24,12 @@
|
||||||
scope-operations
|
scope-operations
|
||||||
racket/string))
|
racket/string))
|
||||||
|
|
||||||
|
(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 x-pvar-scope (make-syntax-introducer))
|
(define-for-syntax x-pvar-scope (make-syntax-introducer))
|
||||||
(define-for-syntax x-pvar-present-marker (make-syntax-introducer))
|
(define-for-syntax x-pvar-present-marker (make-syntax-introducer))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user