diff options
| author | Robert Norton | 2018-01-29 15:48:40 +0000 |
|---|---|---|
| committer | Robert Norton | 2018-01-29 15:48:40 +0000 |
| commit | 8406a2ec3aeab4ad573a126adb3393e7033d749b (patch) | |
| tree | fcc43f55251e5b3359671f6111db227aed7f9082 /src/ocaml_backend.ml | |
| parent | a827c35deba4f3e06034c26ec09aed4b6b5fcd70 (diff) | |
| parent | b8a0efd0043a00447ca4f3aeea75a4e6e024d98b (diff) | |
Merge branch 'sail2' of https://bitbucket.org/Peter_Sewell/sail into sail2
Diffstat (limited to 'src/ocaml_backend.ml')
| -rw-r--r-- | src/ocaml_backend.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ocaml_backend.ml b/src/ocaml_backend.ml index 96dfd9d3..c535554b 100644 --- a/src/ocaml_backend.ml +++ b/src/ocaml_backend.ml @@ -528,7 +528,7 @@ let ocaml_string_of_enum ctx id ids = let ocaml_string_of_struct ctx id typq fields = let arg = gensym () in let ocaml_field (typ, id) = - separate space [string (string_of_id id ^ " = \""); string "^"; ocaml_string_typ typ arg ^^ string "." ^^ zencode ctx id] + separate space [string (string_of_id id ^ " = \""); string "^"; ocaml_string_typ typ (arg ^^ string "." ^^ zencode ctx id)] in separate space [string "let"; ocaml_string_of id; parens (arg ^^ space ^^ colon ^^ space ^^ zencode ctx id); equals] ^//^ (string "\"{" ^^ separate_map (hardline ^^ string "^ \", ") ocaml_field fields ^^ string " ^ \"}\"") |