From af2e9e435e93ab31560b508616a05ab8043eeb9f Mon Sep 17 00:00:00 2001
From: Bernhard Urban <lewurm@gmail.com>
Date: Tue, 24 Apr 2012 19:43:34 +0200
Subject: [PATCH] methodpool: bug fix

doesn't make sense otherwise.
why no testcase covers this? well, when we lose information
about already compiled methods, we just compile them again...
---
 Mate/MethodPool.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Mate/MethodPool.hs b/Mate/MethodPool.hs
index 9c3c727..23d8434 100644
--- a/Mate/MethodPool.hs
+++ b/Mate/MethodPool.hs
@@ -121,8 +121,7 @@ addMethodRef :: Word32 -> MethodInfo -> [B.ByteString] -> IO ()
 addMethodRef entry (MethodInfo mmname _ msig) clsnames = do
   mmap <- get_methodmap >>= ptr2mmap
   let newmap = M.fromList $ map (\x -> ((MethodInfo mmname x msig), entry)) clsnames
-  let mmap' = newmap `M.union` newmap
-  mmap2ptr mmap' >>= set_methodmap
+  mmap2ptr (mmap `M.union` newmap) >>= set_methodmap
 
 
 compileBB :: MapBB -> MethodInfo -> IO Word32
-- 
2.25.1