diff options
| author | Kathy Gray | 2015-10-20 14:30:03 +0100 |
|---|---|---|
| committer | Kathy Gray | 2015-10-20 14:30:03 +0100 |
| commit | e55f1e9e2abc48add0db89a84f2db48e3b8c88ab (patch) | |
| tree | 210ea1836a5b47fb59100985c949f4082ca129b1 /src | |
| parent | 2e49ebb3b1d297e79e8415e7a9bce7d866817f98 (diff) | |
compiling prettyprinter
Diffstat (limited to 'src')
| -rw-r--r-- | src/pretty_print.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/pretty_print.ml b/src/pretty_print.ml index 432d4c8c..772d4e5e 100644 --- a/src/pretty_print.ml +++ b/src/pretty_print.ml @@ -1302,7 +1302,7 @@ let doc_pat_ocaml = | P_typ(typ,p) -> doc_op colon (pat p) (doc_typ_ocaml typ) | P_app(id,[]) -> doc_id_ocaml_ctor id | P_vector pats -> - let non_bit_print () = parens (separate space [string "VvectorR"; squarebars (separate_map semi pat pats); underscore ; underscore]) in + let non_bit_print () = parens (separate space [string "VvectorR"; squarebars (separate_map semi pat pats);comma; underscore ; comma; underscore]) in (match annot with | Base(([],t),_,_,_,_,_) -> if is_bit_vector t @@ -1525,7 +1525,7 @@ let doc_exp_ocaml, doc_let_ocaml = exp in_exp] | E_internal_plet (pat,e1,e2) -> - (separate space [(exp e1); string ">>= fun"; doc_atomic_pat_ocaml pat;arrow]) ^/^ + (separate space [(exp e1); string ">>= fun"; doc_pat_ocaml pat;arrow]) ^/^ exp e2 | E_internal_return (e1) -> |