Fix argument to dup instruction.
This commit is contained in:
parent
9d1435a428
commit
187ff03caa
@ -95,7 +95,7 @@ to_scode(_Env, #integer{ value = N }) ->
|
|||||||
to_scode(Env, #var_ref{name = X}) ->
|
to_scode(Env, #var_ref{name = X}) ->
|
||||||
case lookup_var(Env, X) of
|
case lookup_var(Env, X) of
|
||||||
false -> error({unbound_variable, X, Env});
|
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})]
|
{arg, N} -> [aeb_fate_code:push({arg, N})]
|
||||||
end;
|
end;
|
||||||
to_scode(Env, #binop{ op = Op, left = A, right = B }) ->
|
to_scode(Env, #binop{ op = Op, left = A, right = B }) ->
|
||||||
|
Loading…
x
Reference in New Issue
Block a user