/*
**  Usage:
**      inst = find_nearest(object);
**
**  Arguments:
**      object    an object to look for
**
**  Returns:
**      inst      nearest instance of given (object),
**                or keyword "noone" if none found
**
**  copyright (c) 2006, John Leffingwell
**  www.planetxot.com
*/
var ds,selected;
ds = ds_priority_create();
ds_priority_add(ds,noone,100000);
with (argument0) if (id != other.id) ds_priority_add(ds,id,distance_to_object(other.id));
selected = ds_priority_find_min(ds);
ds_priority_destroy(ds);
return selected;