<pre style="font-family:consolas,monospace"><span style="color:#880000">------ </span><span style="font-weight:bold">before.clambda 2015-02-05 10:46:18.346275Z</span> <span style="color:#008800">++++++ </span><span style="font-weight:bold">after.clambda 2015-02-05 10:46:36.201275Z</span> <span style="color:#000000"><span style="background-color:#c0c0c0">@|</span></span><span style="font-weight:bold">-1,18 +1,23</span> ============================================================ <span style="color:#000000"><span style="background-color:#008800">+|</span></span><span style="color:#008800">set global field 0, approx = function camlPr6770__to_string_1011 arity 1</span> <span style="color:#000000"><span style="background-color:#008800">+|</span></span><span style="color:#008800"> (closed) (inline) -> _</span> <span style="color:#000000"><span style="background-color:#c0c0c0"> |</span></span>(seq <span style="color:#000000"><span style="background-color:#c0c0c0"> |</span></span> (let <span style="color:#000000"><span style="background-color:#c0c0c0"> |</span></span> (to_string/1011 <span style="color:#000000"><span style="background-color:#c0c0c0"> |</span></span> (closure (fun camlPr6770__to_string_1011 <span style="color:#000000"><span style="background-color:#c0c0c0"> |</span></span> 1 param/1016 (switch param/1016 <span style="color:#000000"><span style="background-color:#888800">!|</span></span> case tag 0: "<span style="color:#008800">camlPr6770__1"="</span>" <span style="color:#000000"><span style="background-color:#c0c0c0"> |</span></span> case tag 1: <span style="color:#000000"><span style="background-color:#c0c0c0"> |</span></span> (let (match/1017 (field 0 param/1016)) <span style="color:#000000"><span style="background-color:#c0c0c0"> |</span></span> (seq (ignore (field 0 match/1017)) <span style="color:#000000"><span style="background-color:#888800">!|</span></span> (ignore (field 1 match/1017)) <span style="color:#000000"><span style="background-color:#888800">!|</span></span> "<span style="color:#008800">camlPr6770__2"="</span>")))) )) <span style="color:#000000"><span style="background-color:#c0c0c0"> |</span></span> (setfield_imm 0 (global camlPr6770!) to_string/1011)) <span style="color:#000000"><span style="background-color:#880000">-|</span></span><span style="color:#c0c0c0"> (</span><span style="color:#880000">let</span><span style="color:#c0c0c0"> </span><span style="color:#c0c0c0">(</span><span style="color:#880000">param/1020 [</span><span style="color:#c0c0c0">0</span><span style="color:#880000">: </span><span style="color:#c0c0c0">4.</span><span style="color:#880000">]</span><span style="color:#c0c0c0">)</span> <span style="color:#000000"><span style="background-color:#880000">-|</span></span><span style="color:#c0c0c0"> </span><span style="color:#880000">(switch param/1020</span> <span style="color:#000000"><span style="background-color:#880000">-|</span></span><span style="color:#880000"> </span><span style="color:#c0c0c0">case tag 0: "</span><span style="color:#c0c0c0">"</span> <span style="color:#000000"><span style="background-color:#008800">+|</span></span> (<span style="color:#008800">switch</span> <span style="color:#008800">"camlPr6770__4"=block</span>(0<span style="color:#008800">,"camlPr6770__3"=</span>4.) <span style="color:#000000"><span style="background-color:#008800">+|</span></span> case tag 0: "<span style="color:#008800">camlPr6770__1"="</span>" <span style="color:#000000"><span style="background-color:#c0c0c0"> |</span></span> case tag 1: <span style="color:#000000"><span style="background-color:#880000">-|</span></span><span style="color:#c0c0c0"> (let (match/</span><span style="color:#880000">1021 (field 0 param/</span><span style="color:#c0c0c0">1020</span><span style="color:#880000">)</span><span style="color:#c0c0c0">)</span> <span style="color:#000000"><span style="background-color:#880000">-|</span></span><span style="color:#c0c0c0"> (seq (ignore (field 0 match/</span><span style="color:#880000">1021</span><span style="color:#c0c0c0">)) (ignore (field 1 match/</span><span style="color:#880000">1021</span><span style="color:#c0c0c0">)) "</span><span style="color:#880000">")</span><span style="color:#c0c0c0">)))</span> <span style="color:#000000"><span style="background-color:#008800">+|</span></span> (let (match/1020<span style="color:#008800"> "camlPr6770__3"=4.</span>) <span style="color:#000000"><span style="background-color:#008800">+|</span></span> (seq (ignore (field 0 match/<span style="color:#008800">1020</span>)) (ignore (field 1 match/<span style="color:#008800">1020</span>)) <span style="color:#000000"><span style="background-color:#008800">+|</span></span> "<span style="color:#008800">camlPr6770__2"=""</span>))) <span style="color:#000000"><span style="background-color:#c0c0c0"> |</span></span> 0a) <span style="color:#000000"><span style="background-color:#008800">+|</span></span><span style="color:#008800">>> Fatal error: Selection.emit_expr: unbound var match_1020</span> <span style="color:#000000"><span style="background-color:#008800">+|</span></span><span style="color:#008800">Fatal error: exception Misc.Fatal_error</span> </pre>