SYNOPSIS object top_env( object ob) FILE /kernel/simul_efun/objects.h DESCRIPTION Returns the top-most environment of ob