From 5cec8d52c23e734ce83d25ae0d63f46867594eb1 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 1 Jan 2019 09:19:18 -0700
Subject: [PATCH] schemify: fix quoted box in interpret mode

---
 racket/src/schemify/interpret.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/racket/src/schemify/interpret.rkt b/racket/src/schemify/interpret.rkt
index 49bfd3f59a..764d39fc0a 100644
--- a/racket/src/schemify/interpret.rkt
+++ b/racket/src/schemify/interpret.rkt
@@ -243,7 +243,8 @@
          (if (or (vector? v)
                  (pair? v)
                  (symbol? v)
-                 (number? v))
+                 (number? v)
+                 (box? v))
              (vector 'quote v)
              v))]
       [`(set! ,id ,rhs)