equal
deleted
inserted
replaced
422 ph <- liftM2 ($+$) (typesAndVars2C False tvars) (phrase2C' phrase) |
422 ph <- liftM2 ($+$) (typesAndVars2C False tvars) (phrase2C' phrase) |
423 return (p, ph) |
423 return (p, ph) |
424 |
424 |
425 let phrasesBlock = if isVoid then ph else t empty <+> res <> semi $+$ ph $+$ text "return" <+> res <> semi |
425 let phrasesBlock = if isVoid then ph else t empty <+> res <> semi $+$ ph $+$ text "return" <+> res <> semi |
426 |
426 |
427 return [(if notDeclared then funWithVarsToDefine n params else empty) $+$ |
427 return [(if notDeclared && hasPassByReference params then funWithVarsToDefine n params else empty) $+$ |
428 t empty <+> text (if hasPassByReference params then n ++ "__vars" else n) <> parens p |
428 t empty <+> text (if hasPassByReference params then n ++ "__vars" else n) <> parens p |
429 $+$ |
429 $+$ |
430 text "{" |
430 text "{" |
431 $+$ |
431 $+$ |
432 nest 4 phrasesBlock |
432 nest 4 phrasesBlock |