Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed a bug about pretty-printing of lazy/assert/new 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7297 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Michel Mauny 2006-01-03 18:12:30 +00:00
parent f27a79b5a7
commit 20ae41f7b0
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
camlp4/etc/pr_o.ml
View File

@ -1407,7 +1407,9 @@ pr_expr.pr_levels :=
<:expr< for $_$ = $_$ $to:_$ $_$ do { $list:_$ } >> | <:expr< for $_$ = $_$ $to:_$ $_$ do { $list:_$ } >> |
<:expr< while $_$ do { $list:_$ } >> | <:expr< ($list: _$) >> | <:expr< while $_$ do { $list:_$ } >> | <:expr< ($list: _$) >> |
<:expr< let $opt:_$ $list:_$ in $_$ >> | <:expr< let $opt:_$ $list:_$ in $_$ >> |
<:expr< let module $_$ = $_$ in $_$ >> as e -> <:expr< let module $_$ = $_$ in $_$ >> |
<:expr< new $list:_$ >> |
<:expr< assert $_$ >> | <:expr< lazy $_$ >> as e ->
fun curr next dg k -> fun curr next dg k ->
[: `S LO "("; `expr e "" [: `HVbox [: `S RO ")"; k :] :] :] [: `S LO "("; `expr e "" [: `HVbox [: `S RO ")"; k :] :] :]
| e -> fun curr next _ k -> [: `not_impl "expr" e :] ]}]; | e -> fun curr next _ k -> [: `not_impl "expr" e :] ]}];

3
camlp4/etc/pr_r.ml
View File

@ -1315,7 +1315,8 @@ pr_expr.pr_levels :=
<:expr< while $_$ do { $list:_$ } >> | <:expr< while $_$ do { $list:_$ } >> |
<:expr< let $opt:_$ $list:_$ in $_$ >> | <:expr< let $opt:_$ $list:_$ in $_$ >> |
<:expr< let module $_$ = $_$ in $_$ >> | <:expr< let module $_$ = $_$ in $_$ >> |
<:expr< new $list:_$ >> as e -> <:expr< new $list:_$ >> |
<:expr< assert $_$ >> | <:expr< lazy $_$ >> as e ->
fun curr next _ k -> fun curr next _ k ->
[: `S LO "("; `expr e [: `HVbox [: `S RO ")"; k :] :] :] [: `S LO "("; `expr e [: `HVbox [: `S RO ")"; k :] :] :]
| e -> fun curr next _ k -> [: `not_impl "expr" e :] ]}]; | e -> fun curr next _ k -> [: `not_impl "expr" e :] ]}];