From 187ff03caaa14634240d23bbea188035e50e60c6 Mon Sep 17 00:00:00 2001
From: Erik Stenman <erik@stenmans.org>
Date: Mon, 4 Mar 2019 14:15:38 +0100
Subject: [PATCH] Fix argument to dup instruction.

---
 src/aeso_icode_to_fate.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/aeso_icode_to_fate.erl b/src/aeso_icode_to_fate.erl
index 09aaf51..245d8d7 100644
--- a/src/aeso_icode_to_fate.erl
+++ b/src/aeso_icode_to_fate.erl
@@ -95,7 +95,7 @@ to_scode(_Env, #integer{ value = N }) ->
 to_scode(Env, #var_ref{name = X}) ->
     case lookup_var(Env, X) of
         false      -> error({unbound_variable, X, Env});
-        {stack, N} -> [aeb_fate_code:dup(N)];
+        {stack, N} -> [aeb_fate_code:dup(?i(N))];
         {arg, N}   -> [aeb_fate_code:push({arg, N})]
     end;
 to_scode(Env, #binop{ op = Op, left = A, right = B }) ->