charToInteger :: [LispVal] -> ThrowsError LispVal
charToInteger [] = return $ fromSimple $ Bool False
charToInteger :: [LispVal] -> ThrowsError LispVal
charToInteger [] = return $ fromSimple $ Bool False
charToInteger [] = return $ fromSimple $ Bool False