scmCloseOutputPort [ScmOutput h] = hClose h >> return (Right ScmVoid)
scmCloseOutputPort [ScmOutput h] = hClose h >> return (Right ScmVoid)
scmCloseOutputPort [ScmOutput h] = hClose h >> return (Right ScmVoid)