807              | otherwise = liftM (text "else" $$) $ (phrase2C . wrapPhrase) (fromJust mphrase2)

   807              | otherwise = liftM (text "else" $$) $ (phrase2C . wrapPhrase) (fromJust mphrase2)

   808 phrase2C asgn@(Assignment ref expr) = do

   808 phrase2C asgn@(Assignment ref expr) = do

   809     r <- ref2C ref

   809     r <- ref2C ref

   810     t <- gets lastType

   810     t <- gets lastType

   811     case (t, expr) of

   811     case (t, expr) of

   812         (BTFunction {}, (Reference r')) -> do

   815         (BTFunction {}, (Reference r')) -> do

   813             e <- ref2C r'

   816             e <- ref2C r'

   814             return $ r <+> text "=" <+> e <> semi

   817             return $ r <+> text "=" <+> e <> semi

   815         (BTString, _) -> do

   818         (BTString, _) -> do

   816             void $ expr2C expr

   819             void $ expr2C expr