From 8ae5b902f4ff47778fb274cf923d7c264e94e965 Mon Sep 17 00:00:00 2001
From: charguer <arthur@chargueraud.org>
Date: Tue, 22 Mar 2016 11:33:09 +0100
Subject: [PATCH] bugfix
---
generator/js_of_ast.ml | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/generator/js_of_ast.ml b/generator/js_of_ast.ml
index b9d1bab..dce6c6d 100644
--- a/generator/js_of_ast.ml
+++ b/generator/js_of_ast.ml
@@ -727,8 +727,10 @@ and js_of_expression ctx dest e =
| Texp_record (llde,_) ->
let sexp = ppf_record (List.map (fun (_, lbl, exp) -> (lbl.lbl_name, inline_of_wrap exp)) llde) in
apply_dest ctx dest sexp
-
- | Texp_field (exp, _, lbl) -> ppf_field_access (inline_of_wrap exp) lbl.lbl_name
+ | Texp_field (exp, _, lbl) ->
+ let sexp = ppf_field_access (inline_of_wrap exp) lbl.lbl_name in
+ apply_dest ctx dest sexp
+
| Texp_assert e ->
let sexp = inline_of_wrap e in
Printf.sprintf "throw %s;" sexp
--
GitLab