suzanne.soy/tr-immutable
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed compatibility with Racket 6.7

Browse Source
This commit is contained in:
Georges Dupéron 2017-01-12 19:39:11 +01:00
parent b1062ecfb1
commit 07a8f4d9e4
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
typed-syntax/typed-syntax-convert.rkt
View File

@ -19,7 +19,11 @@
A A
(Syntaxof Any) (Syntaxof Any)
(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) (define-syntax-rule (unsafe-cast v t)
((inst unsafe-cast-function t) v)) ((inst unsafe-cast-function t) v))