Don't dip for vars after the second

This commit is contained in:
Tom Jack 2020-02-03 17:33:47 -06:00 committed by Pierre-Emmanuel Wulfman
parent b05e7ef613
commit 94c35e15dd
2 changed files with 579 additions and 481 deletions

File diff suppressed because it is too large Load Diff

View File

@ -24,8 +24,9 @@ let get : environment -> expression_variable -> michelson result = fun e s ->
] ]
in in
let aux_dig = fun n -> seq [ let aux_dig = fun n -> seq [
dipn n i_dup ;
i_dig n ; i_dig n ;
i_dup ;
i_dug (n + 1) ;
] ]
in in
let code = let code =