From 1d35d3c0780b1f5392517fe3c1e30950de79efb4 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rosehogenson@posteo.net>
Date: Sat, 27 Apr 2024 07:44:47 -0700
Subject: Add tests for let.

---
 codegen.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'codegen.sml')

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)
-- 
cgit v1.3.1