---

yaml
---
r: 1231
b: refs/heads/master
c: 59c9e6c
h: refs/heads/master
i:
  1229: b65eed0
  1227: 2866531
  1223: ef5760e
  1215: 85949fe
v: v3

Author: graydon

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: b81aa05fa19a748e04808145cd8b7241f785693c
+refs/heads/master: 59c9e6caffadcfee9216ac289ae0b306fc2e55eb

trunk/src/boot/me/trans.ml

@@ -1344,8 +1344,10 @@ let trans_visitor
           let is_stateful =
             if (force_stateful || type_has_state cx t) then 1L else 0L
           in
-          log cx "tydesc for %a has sz=%Ld, align=%Ld, is_stateful=%Ld"
-            Ast.sprintf_ty t sz align is_stateful;
+            iflog
+              (fun _ ->
+                 log cx "tydesc for %a has sz=%Ld, align=%Ld, is_stateful=%Ld"
+                   Ast.sprintf_ty t sz align is_stateful);
             Asm.DEF
               (tydesc_fixup,
                Asm.SEQ
@@ -5955,7 +5957,7 @@ let trans_visitor
     let (header_tup, oid, i) = tag in
     let tinfo = Hashtbl.find cx.ctxt_all_tag_info oid in
     let (n, _, _) = Hashtbl.find tinfo.tag_nums i in
-    let _ = log cx "tag variant: %s -> tag value #%d" n i in
+    let _ = iflog (fun _ -> log cx "tag variant: %s -> tag value #%d" n i) in
     let (dst_cell, dst_slot) = get_current_output_cell_and_slot() in
     let dst_cell = deref_slot true dst_cell dst_slot in
     let tag_cell = get_element_ptr dst_cell Abi.tag_elt_discriminant in