From 23945c08917c4c02a7aced6ddc2c9f1be53421d6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Sun, 3 Jun 2018 01:42:49 +0200 Subject: [PATCH] =?UTF-8?q?Compatibility=20with=20Racket=207:=20syntax/par?= =?UTF-8?q?se/private/residual=20=E2=86=92=20racket/private/template?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- private/ddd.rkt | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/private/ddd.rkt b/private/ddd.rkt index dd1d488..fc7ffc7 100644 --- a/private/ddd.rkt +++ b/private/ddd.rkt @@ -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))