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:43:06 +01:00
parent 07a8f4d9e4
commit 85e4f1412a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -21,9 +21,8 @@
(Syntaxof Any) (Syntaxof Any)
(Syntaxof A)))] (Syntaxof A)))]
;; Backported from 6.8 so that it works on 6.7 ;; Backported from 6.8 so that it works on 6.7
[vector->list [[vector->list vectortop->list]
(∀ (A) (case→ (→ (Vectorof A) (Listof A)) (→ VectorTop (Listof Any))])
(→ 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))
@ -95,7 +94,8 @@
[else [else
(values (cons car* cdr*) 'modified)]))] (values (cons car* cdr*) 'modified)]))]
[(vector? e) (match-let ([(cons vs* status) [(vector? e) (match-let ([(cons vs* status)
(try-listof-any->isexp* (vector->list e) non-sexp)]) (try-listof-any->isexp* (vectortop->list e)
non-sexp)])
(case status (case status
[(unmodified) [(unmodified)
(if (immutable? e) (if (immutable? e)