From 116555c5177e306e9e871ce36af2fadbaedcbd7e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 2 Jul 2014 12:07:25 +0100
Subject: [PATCH] optimizer: fix crashing bug

A continuation of 22b7cc6a5e: a second old bug in
shift_closure_compilation() than became more exposed.
---
 racket/src/racket/src/optimize.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/racket/src/optimize.c b/racket/src/racket/src/optimize.c
index 5e47df025d..ec2d890598 100644
--- a/racket/src/racket/src/optimize.c
+++ b/racket/src/racket/src/optimize.c
@@ -5908,8 +5908,8 @@ static Scheme_Object *shift_closure_compilation(Scheme_Object *_data, int delta,
   /* In case the result is not going to be re-optimized, we need
      to update base_closure_map. */
 
-  sz = data->closure_size;
   cl = (Closure_Info *)data->closure_map;
+  sz = cl->base_closure_size;
   naya = MALLOC_N_ATOMIC(mzshort, sz);
 
   for (i = 0; i < sz; i++) {