From 41a67a96597e12b5aee0abdb0af712951ec6ba35 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 20 Jun 2009 00:50:19 -0700
Subject: [PATCH] Fix typo.

---
 src/microcode/cmpintmd/svm1.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/microcode/cmpintmd/svm1.c b/src/microcode/cmpintmd/svm1.c
index 1f101f663..5ec801c67 100644
--- a/src/microcode/cmpintmd/svm1.c
+++ b/src/microcode/cmpintmd/svm1.c
@@ -287,11 +287,11 @@ compiled_closure_entry_to_target (insn_t * entry)
 {
   unsigned int index = (read_u16 (entry + 1));
   insn_t * block
-    = (entry + ((index * CLOSURE_ENTRY_SIZE) + CLOSURE_COUNT_SIZE));
+    = (entry - (CLOSURE_COUNT_SIZE + (index * CLOSURE_ENTRY_SIZE)));
   unsigned int count = (read_u16 (block));
   SCHEME_OBJECT * targets
     = (skip_compiled_closure_padding
-       (block + CLOSURE_COUNT_SIZE + (count * CLOSURE_ENTRY_SIZE)));
+       (block + (CLOSURE_COUNT_SIZE + (count * CLOSURE_ENTRY_SIZE))));
   return (targets[index]);
 }
 
-- 
2.25.1