external add_primitive_set     : t -> Primitive_set.t -> unit = "geometry_add_primitive_set"