From 5e9ead0e263d304afa199911d8ac8aceda5ecf7d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 26 Nov 2009 15:44:43 +0000
Subject: [PATCH] fix unboxing offset

svn: r17070
---
 src/mzscheme/src/jit.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/jit.c b/src/mzscheme/src/jit.c
index 0f8d67a596..d91bccc3b2 100644
--- a/src/mzscheme/src/jit.c
+++ b/src/mzscheme/src/jit.c
@@ -4067,7 +4067,8 @@ static int generate_arith(mz_jit_state *jitter, Scheme_Object *rator, Scheme_Obj
     }
     if (args_unboxed) {
       --jitter->unbox;
-      jitter->unbox_depth -= (rand2 ? 2 : 1);
+      if (rand)
+        jitter->unbox_depth -= (rand2 ? 2 : 1);
     }
     if (for_branch)
       mz_rs_sync(); /* needed if arguments were unboxed */