Proto: show Michleson error traces in correct order

2018-07-10 13:43:25 +02:00 · 2018-07-10 13:43:25 +02:00 · da986e27ab
commit da986e27ab
parent e52455f00a
1 changed files with 1 additions and 1 deletions
--- a/src/proto_alpha/lib_protocol/src/script_interpreter.ml
+++ b/src/proto_alpha/lib_protocol/src/script_interpreter.ml
@ -187,7 +187,7 @@ let rec interp
                log := (descr.loc, Gas.level ctxt, stack) :: !log ;
                return (ret, ctxt) in
        let get_log (log : execution_trace ref option) =
-          Option.map ~f:(!) log in
+          Option.map ~f:(fun l -> List.rev !l) log in
        let consume_gas_terop : type ret arg1 arg2 arg3 rest.
          (_ * (_ * (_ * rest)), ret * rest) descr ->
          ((arg1 -> arg2 -> arg3 -> ret) * arg1 * arg2 * arg3) ->