scmCloseInputPort, scmCloseOutputPort :: [ScmValue] -> IO (ErrOr ScmValue)
scmCloseInputPort  [ScmInput  h] = hClose h >> return (Right ScmVoid)
scmCloseInputPort, scmCloseOutputPort :: [ScmValue] -> IO (ErrOr ScmValue)
scmCloseInputPort  [ScmInput  h] = hClose h >> return (Right ScmVoid)
scmCloseInputPort  [ScmInput  h] = hClose h >> return (Right ScmVoid)