scmIsPort :: [ScmValue] -> ErrOr Bool
scmIsPort x =
   liftM2 (||) (scmIsInputPort "port?" x) (scmIsOutputPort "port?" x)
scmIsPort :: [ScmValue] -> ErrOr Bool
scmIsPort x =
   liftM2 (||) (scmIsInputPort "port?" x) (scmIsOutputPort "port?" x)
scmIsPort x =
   liftM2 (||) (scmIsInputPort "port?" x) (scmIsOutputPort "port?" x)