curport          1290 src/port.c         ScmPort *curport;
curport          1293 src/port.c             curport = SCM_CURIN;
curport          1295 src/port.c             if (p->closep) Scm_ClosePort(curport);
curport          1298 src/port.c             curport = SCM_CUROUT;
curport          1300 src/port.c             if (p->closep) Scm_ClosePort(curport);
curport          1303 src/port.c             curport = SCM_CURERR;
curport          1305 src/port.c             if (p->closep) Scm_ClosePort(curport);