Commits

camlspotter committed 878453d

unused code cleanup

Comments (0)

Files changed (2)

         | _ -> ty0, fun ty -> ty
       in
 
+(*
       let extract_arg_type = function
         | <:ctyp< [ > $id:clsname$ ] $id:t$ >> -> Some (clsname, t, None)
         | <:ctyp< [ > $id:clsname$ ] $id:t$ $id:container$ >> -> Some (clsname, t, Some container)
         | _ -> None
       in
+*)
 
       let normalize_arg_type ctyp = 
         match extract_class_from_type ctyp with

tests/set_closure_string.ml

 let finalize = fun _ -> incr freed
 
 let f n = 
-  let f = fun args -> 
+  let f = fun _args -> 
     Format.eprintf "f(%d)@." n;
     Object.obj (Base.none ())
   in