diff options
| author | Kathy Gray | 2015-09-25 10:14:29 +0100 |
|---|---|---|
| committer | Kathy Gray | 2015-09-25 10:14:29 +0100 |
| commit | dd3ae8f47b8bfca52507fbd2a234d064e4f1ca9d (patch) | |
| tree | 7ca26e82b79dd4b72cf73a6b1d42e383f9cf3b1f /src/pretty_print.ml | |
| parent | 4ce0ce8461b7cbf3e710f42ab3edb50902c7d996 (diff) | |
building version of last change, removing stray )
Diffstat (limited to 'src/pretty_print.ml')
| -rw-r--r-- | src/pretty_print.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/pretty_print.ml b/src/pretty_print.ml index 0ca8a582..6337e6e0 100644 --- a/src/pretty_print.ml +++ b/src/pretty_print.ml @@ -1296,7 +1296,8 @@ let doc_pat_ocaml, doc_atomic_pat_ocaml = let doc_exp_ocaml, doc_let_ocaml = let rec exp (E_aux (e, (_,annot))) = match e with - | E_assign(le,e) -> + | E_assign((LEXP_aux(le_act,tannot) as le),e) -> + (*TODO: Check the type, if le is a ref cell, then do this. if le is a register or a memory function (external), then call out if le is a register or a memory function (internal), then replace with call |