static int
p_shelf_name(value vname, type tname, value vhandle, type thandle, value vmod, type tmod)
{
pword *prop;
dident name_did;
int err;
Get_Functor_Did(vname, tname, name_did);
prop = set_modular_property(name_did, SHELF_PROP, vmod.did, tmod,
LOCAL_PROP, &err);
if (prop)
{
t_heap_array *obj;
Get_Typed_Object(vhandle, thandle, &heap_array_tid, obj);
prop->tag.kernel = TPTR;
prop->val.wptr = (uword *) heap_array_tid.copy(obj);
Succeed_;
}
else if (err == PERROR)
{
Succeed_;
}
else
{
Bip_Error(err);
}
}
pword *
set_property(dident functor, int property_name)
{
int err;
/* the module is not used */
return set_modular_property(functor, property_name,
d_.default_module, tdict, GLOBAL_PROP, &err);
}
