Don't dip for vars after the second

2020-02-03 17:33:47 -06:00 · 2020-02-03 17:33:47 -06:00 · 94c35e15dd
commit 94c35e15dd
parent b05e7ef613
2 changed files with 579 additions and 481 deletions
--- a/src/bin/expect_tests/contract_tests.ml
+++ b/src/bin/expect_tests/contract_tests.ml
--- a/src/passes/12-compiler/compiler_environment.ml
+++ b/src/passes/12-compiler/compiler_environment.ml
@ -24,8 +24,9 @@ let get : environment -> expression_variable -> michelson result = fun e s ->
      ]
  in
  let aux_dig = fun n -> seq [
-      dipn n i_dup ;
      i_dig n ;
+      i_dup ;
+      i_dug (n + 1) ;
    ]
  in
  let code =