Compatibility with Racket 7: template-metafunction? → metafunction?
This commit is contained in:
parent
23945c0891
commit
1f886a6a06
|
@ -15,6 +15,7 @@
|
||||||
stxparse-info/case
|
stxparse-info/case
|
||||||
syntax/stx
|
syntax/stx
|
||||||
racket/list
|
racket/list
|
||||||
|
version-case
|
||||||
(for-syntax racket/base
|
(for-syntax racket/base
|
||||||
racket/list
|
racket/list
|
||||||
racket/syntax
|
racket/syntax
|
||||||
|
@ -22,6 +23,13 @@
|
||||||
(only-in racket/base [... …])
|
(only-in racket/base [... …])
|
||||||
phc-toolkit/untyped))
|
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))
|
(define-for-syntax lifted (make-parameter #f))
|
||||||
|
|
||||||
(begin-for-syntax
|
(begin-for-syntax
|
||||||
|
|
Loading…
Reference in New Issue
Block a user