scmIsInputPort, scmIsOutputPort :: String -> [ScmValue] -> ErrOr Bool
scmIsInputPort  _ [ScmInput _]  = Right True
scmIsInputPort, scmIsOutputPort :: String -> [ScmValue] -> ErrOr Bool
scmIsInputPort  _ [ScmInput _]  = Right True
scmIsInputPort  _ [ScmInput _]  = Right True