Don't dip for vars after the second
This commit is contained in:
parent
b05e7ef613
commit
94c35e15dd
File diff suppressed because it is too large
Load Diff
@ -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 =
|
||||||
|
Loading…
Reference in New Issue
Block a user