methodpool: save information in codegen context

[mate.git] / Mate.hs

diff --git a/Mate.hs b/Mate.hs
index d68c8daa849bd7fbdbb060402de16a30310c9333..b787c260d3a432a72bb9de885e8f5f6b59a5a673 100644 (file)
--- a/Mate.hs
+++ b/Mate.hs
@@ -25,7 +25,7 @@ main = do
       printMapBB hmap
       case hmap of
         Just hmap' -> do
-          entry <- compileBB hmap' "main"
+          entry <- compileBB hmap' cls "main"
           printf "executing `main' now:\n"
           executeFuncPtr entry
         Nothing -> error "main not found"