Commit ba126bd7 authored by Bruno Guillaume's avatar Bruno Guillaume

unused code

parent 14c6e747
......@@ -34,15 +34,6 @@ let handle fct () =
| Libgrew.Bug msg -> fail (sprintf "Libgrew.bug, please report: %s" msg)
| exc -> fail (sprintf "Uncaught exception, please report: %s" (Printexc.to_string exc))
let array_assoc key array =
let exception Found of int in
Array.iteri (fun i (k,_) -> if k = key then raise (Found i)) array;
with Found i -> Some i
(* -------------------------------------------------------------------------------- *)
let transform () =
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment