let link_to_dir p dir = is_link p && is_prefix dir (readlink p)