From 9571b33f406185be5d33a383098c93f16b7db801 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 6 Sep 2015 16:07:35 -0600 Subject: [PATCH] zo-marshal: add missing `protect-quote` The `protect-quote` call is needed when the right-hand side of a `set!` is a literal hash table, for example. --- zo-lib/compiler/zo-marshal.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/zo-lib/compiler/zo-marshal.rkt b/zo-lib/compiler/zo-marshal.rkt index 0684e7261c..d6eb6fbf82 100644 --- a/zo-lib/compiler/zo-marshal.rkt +++ b/zo-lib/compiler/zo-marshal.rkt @@ -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?)