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

schemify: use unsafe box operation for lifted mutable variables

Browse Source
This commit is contained in:
Matthew Flatt 2019-06-20 18:30:55 -06:00
parent bf692f572d
commit 9083c6abb4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/schemify/lift.rkt
View File

@ -527,7 +527,7 @@
[(indirected? info)
(reannotate v (if (indirected-check? info)
`(set-box!/check-undefined ,id ,(convert rhs) ',id)
`(set-box! ,id ,(convert rhs))))]
`(unsafe-set-box*! ,id ,(convert rhs))))]
[else
(reannotate v `(set! ,id ,(convert rhs)))])]
[`(#%variable-reference . ,_)
@ -590,7 +590,7 @@
(define new-rhs (convert-lifted-calls-in-expr rhs lifts frees empties))
(cond
[(indirected? (hash-ref lifts (unwrap id) #f))
`[,(gensym) (set-box! ,id ,new-rhs)]]
`[,(gensym) (unsafe-set-box*! ,id ,new-rhs)]]
[else `[,id ,new-rhs]])))
(define new-bindings
(if (null? bindings)