(bind-func cell_set_value (lambda (w x y value) (pset! (world_data w) (world_data_index w x y) value)))