constant :: String -> IO ScmValue -> [ScmValue] -> IO (ErrOr ScmValue)
constant _ x [] = fmap Right x
constant :: String -> IO ScmValue -> [ScmValue] -> IO (ErrOr ScmValue)
constant _ x [] = fmap Right x
constant _ x [] = fmap Right x