scmReadChar, scmPeekChar, scmCharReady :: Handle -> IO ScmValue
scmReadChar  = fmap ScmChar . hGetChar
scmReadChar, scmPeekChar, scmCharReady :: Handle -> IO ScmValue
scmReadChar  = fmap ScmChar . hGetChar
scmReadChar  = fmap ScmChar . hGetChar