Compatibility with Racket 7: syntax/parse/private/residual → racket/private/template

This commit is contained in:
Georges Dupéron 2018-06-03 01:42:49 +02:00
parent 0b424fdc6f
commit 23945c0891

View File

@ -10,7 +10,7 @@
(require stxparse-info/current-pvars
phc-toolkit/untyped
subtemplate/private/copy-attribute
(prefix-in - syntax/parse/private/residual)
version-case
racket/stxparam
"lifted-variables-communication.rkt"
(for-syntax "optcontract.rkt"
@ -24,6 +24,12 @@
scope-operations
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-present-marker (make-syntax-introducer))