external release_context : t -> unit = "graphics_context_release_context"