729     return . quotes . text $ escape a

   729     return . quotes . text $ escape a

   730     where

   730     where

   731         escape '\'' = "\\\'"

   731         escape '\'' = "\\\'"

   732         escape a = [a]-}

   732         escape a = [a]-}

   733 expr2C (StringLiteral s) = addStringConst s

   733 expr2C (StringLiteral s) = addStringConst s

   734 expr2C (Reference ref) = ref2CF ref

   735 expr2C (Reference ref) = ref2CF ref

   735 expr2C (PrefixOp op expr) = do

   736 expr2C (PrefixOp op expr) = do

   736     e <- expr2C expr

   737     e <- expr2C expr

   737     lt <- gets lastType

   738     lt <- gets lastType

   738     case lt of

   739     case lt of