let children' = List.map aux_mpres children in
(fun size -> render_row size false children')
| Pres.Mfrac (_, m, n) ->
- aux_mpres (mrow [ text " \\frac "; parentesize m ; parentesize n])
- | Pres.Msqrt (_, m) -> aux_mpres (mrow [ text " \\sqrt "; parentesize m; ])
+ aux_mpres (mrow [ text " \\frac "; parentesize m ; text " "; parentesize n; text " " ])
+ | Pres.Msqrt (_, m) -> aux_mpres (mrow [ text " \\sqrt "; parentesize m; text " "])
| Pres.Mroot (_, r, i) ->
aux_mpres (mrow [
- text " \\root "; parentesize i; text " \\of "; parentesize r ])
+ text " \\root "; parentesize i; text " \\of "; parentesize r; text " " ])
| Pres.Mstyle (_, m)
| Pres.Merror (_, m)
| Pres.Mpadded (_, m)
| Pres.Mfenced (_, children) -> aux_mpres (mrow children)
| Pres.Maction (_, []) -> assert false
| Pres.Msub (_, m, n) ->
- aux_mpres (mrow [ parentesize m; text " \\sub "; parentesize n ])
+ aux_mpres (mrow [ text " "; parentesize m; text " \\sub "; parentesize n; text " " ])
| Pres.Msup (_, m, n) ->
- aux_mpres (mrow [ parentesize m; text " \\sup "; parentesize n ])
+ aux_mpres (mrow [ text " "; parentesize m; text " \\sup "; parentesize n; text " " ])
| Pres.Munder (_, m, n) ->
- aux_mpres (mrow [ parentesize m; text " \\below "; parentesize n ])
+ aux_mpres (mrow [ text " "; parentesize m; text " \\below "; parentesize n; text " " ])
| Pres.Mover (_, m, n) ->
- aux_mpres (mrow [ parentesize m; text " \\above "; parentesize n ])
+ aux_mpres (mrow [ text " "; parentesize m; text " \\above "; parentesize n; text " " ])
| Pres.Msubsup _
| Pres.Munderover _
| Pres.Mtable _ ->