Fixed compatibility with Racket 6.7

2017-01-12 19:39:11 +01:00 · 2017-01-12 19:39:11 +01:00 · 07a8f4d9e4
commit 07a8f4d9e4
parent b1062ecfb1
1 changed files with 5 additions and 1 deletions
--- a/typed-syntax/typed-syntax-convert.rkt
+++ b/typed-syntax/typed-syntax-convert.rkt
@ -19,7 +19,11 @@
                                 A
                                 (Syntaxof Any)
                                 (Syntaxof Any)
-                                 (Syntaxof A)))])
+                                 (Syntaxof A)))]
+                      ;; Backported from 6.8 so that it works on 6.7
+                      [vector->list
+                       (∀ (A) (case→ (→ (Vectorof A) (Listof A))
+                                     (→ VectorTop (Listof Any))))])

 (define-syntax-rule (unsafe-cast v t)
  ((inst unsafe-cast-function t) v))