* popen.scm (open-process): after forking, close all ports except