From e59f285dd1d3aa33cdaa14fdb54fe1618e705ba1 Mon Sep 17 00:00:00 2001
From: mzp <mzpppp@gmail.com>
Date: Mon, 14 Sep 2009 08:54:11 +0900
Subject: [PATCH] fix: compile failed

---
 swflib/gen_typemap.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/swflib/gen_typemap.ml b/swflib/gen_typemap.ml
index 427c9c5..4ecd78e 100644
--- a/swflib/gen_typemap.ml
+++ b/swflib/gen_typemap.ml
@@ -32,7 +32,7 @@ let cpool name ~high ~entry =
   regist name ~low:"int" ~high
     ~funs:[
       "byte"  => "u30";
-      "const" => sprintf "fun x -> Some (%s x)" entry;
+      "const" => sprintf "fun x -> Some ((%s x) :> Cpool.entry)" entry;
       "arg"   => sprintf "fun ctx x -> Cpool.index ctx#cpool (%s x)" entry;
       "class" => none;
       "method"=> none;
-- 
2.11.0