From 51d91032f5fdba6163bb4bca7c3f5b9f0366b285 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 5 Sep 2014 21:10:16 -0600
Subject: [PATCH] optimizer: fix bug

Repair a typo in b0f4a32049; thanks to Blake Johnson.
---
 racket/src/racket/src/resolve.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/racket/src/resolve.c b/racket/src/racket/src/resolve.c
index 6a44c1e000..112c077189 100644
--- a/racket/src/racket/src/resolve.c
+++ b/racket/src/racket/src/resolve.c
@@ -3179,7 +3179,7 @@ static int *unresolve_stack_pop(Unresolve_Info *ui, int pos, int n)
   if (n) {
     f = (int *)scheme_malloc_atomic(sizeof(int) * n);
     for (i = 0; i < n; i++) {
-      f[i] = ui->flags[pos + (n - i -i)];
+      f[i] = ui->flags[pos + (n - i - 1)];
     }
     ui->depth -= n;
   } else