public virtual void close()
{
if( chook is procedure )
{
((procedure)chook).funcall1(this);
}
}
public static Object bgl_close_input_port( input_port p ) { p.close(); return p; }