www

commit 1f886a6a06dae154f8686b5cc00e84e1ff555af0
parent 23945c08917c4c02a7aced6ddc2c9f1be53421d6
Author: Georges Dupéron <georges.duperon@gmail.com>
Date:   Sun,  3 Jun 2018 01:43:12 +0200

Compatibility with Racket 7: template-metafunction? → metafunction?

Diffstat:
M
private/unsyntax-preparse.rkt
 | 
8
++++++++

1 file changed, 8 insertions(+), 0 deletions(-)
diff --git a/private/unsyntax-preparse.rkt b/private/unsyntax-preparse.rkt
@@ -15,6 +15,7 @@
          stxparse-info/case
          syntax/stx
          racket/list
+         version-case
          (for-syntax racket/base
                      racket/list
                      racket/syntax
@@ -22,6 +23,13 @@
                      (only-in racket/base [... …])
                      phc-toolkit/untyped))
 
+(version-case
+ [(version< (version) "6.90.0.24")
+  (begin)]
+ [else
+  (require (only-in racket/private/template
+                    [metafunction? template-metafunction?]))])
+
 (define-for-syntax lifted (make-parameter #f))
 
 (begin-for-syntax