scmWriteChar :: Handle -> [ScmValue] -> IO (ErrOr ScmValue)
scmWriteChar h [ScmChar c] = hPutChar h c >> return (Right ScmVoid)
scmWriteChar :: Handle -> [ScmValue] -> IO (ErrOr ScmValue)
scmWriteChar h [ScmChar c] = hPutChar h c >> return (Right ScmVoid)
scmWriteChar h [ScmChar c] = hPutChar h c >> return (Right ScmVoid)