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

zo-marshal: add missing protect-quote

Browse Source 
The `protect-quote` call is needed when the right-hand side of a
`set!` is a literal hash table, for example.
This commit is contained in:
Matthew Flatt 2015-09-06 16:07:35 -06:00
parent 6632070f75
commit 9571b33f40
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
zo-lib/compiler/zo-marshal.rkt
View File

@ -728,7 +728,7 @@
(out-number id out)]
[(struct assign (id rhs undef-ok?))
(out-marshaled set-bang-type-num
(cons undef-ok? (cons id rhs))
(cons undef-ok? (cons id (protect-quote rhs)))
out)]
[(struct localref (unbox? offset clear? other-clears? type))
(if (and (not clear?) (not other-clears?) (not flonum?)