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);