From 26e0ad955a1c186aac7fc09123eb7616f3c55148 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 3 Sep 2010 15:44:14 -0600
Subject: [PATCH] fix `unsafe-set-box*!'

---
 collects/tests/racket/unsafe.rktl | 2 +-
 src/racket/src/jit.c              | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/collects/tests/racket/unsafe.rktl b/collects/tests/racket/unsafe.rktl
index 1c7f5ac219..c75a3272a5 100644
--- a/collects/tests/racket/unsafe.rktl
+++ b/collects/tests/racket/unsafe.rktl
@@ -221,7 +221,7 @@
               #:post (lambda (x) (mcdr v))
               #:literal-ok? #f))
 
-  (for ([star (list values (add-star "vector"))])
+  (for ([star (list values (add-star "box"))])
     (test-un 3 (star 'unsafe-unbox) #&3)
     (let ([b (box 12)])
       (test-tri (list (void) 8) 
diff --git a/src/racket/src/jit.c b/src/racket/src/jit.c
index 85e23180ea..0bf7c0a4b4 100644
--- a/src/racket/src/jit.c
+++ b/src/racket/src/jit.c
@@ -8070,7 +8070,8 @@ static int generate_inlined_binary(mz_jit_state *jitter, Scheme_App3_Rec *app, i
         ref3 = NULL;
       jit_ldxi_s(JIT_R2, JIT_R0, &((Scheme_Object *)0x0)->type);
       ref = jit_beqi_i(jit_forward(), JIT_R2, scheme_box_type);
-      mz_patch_branch(ref3);
+      if (ref3)
+        mz_patch_branch(ref3);
       (void)jit_calli(set_box_code);
       ref2 = jit_jmpi(jit_forward());
       mz_patch_branch(ref);