1 files changed, 1 insertions, 1 deletions
diff --git a/codegen.sml b/codegen.sml
index befedac..c7f0f2d 100644
--- a/codegen.sml
+++ b/codegen.sml
@@ -124,7 +124,7 @@ struct
                       foldl
                         (fn (off, (arg, ops)) =>
                           (Syntax.VVar tempReg, Syntax.OPeek (tempReg, off, translateVal arg) :: ops))
-                        (arg, [])
+                        (translateVal arg, [])
                         path
                     in rev (Syntax.OPoke (i, translate res, temp) :: ops)
                     end)