string2Symbol :: [LispVal] -> ThrowsError LispVal
string2Symbol [SimpleVal (String s)] = return $ fromSimple $ Atom s
string2Symbol :: [LispVal] -> ThrowsError LispVal
string2Symbol [SimpleVal (String s)] = return $ fromSimple $ Atom s
string2Symbol [SimpleVal (String s)] = return $ fromSimple $ Atom s