fix tee_local semantic

src/Language/Wasm/Interpreter.hs

@@ -593,7 +593,7 @@ eval store FunctionInstance { funcType, moduleInstance, code = Function { localT
             return $ Done ctx { stack = rest, locals = locals ctx // [(fromIntegral i, v)] }
         step ctx@EvalCtx{ locals = ls, stack = (v:rest) } (TeeLocal i) =
             return $ Done ctx {
-                stack = (ls ! fromIntegral i) : rest,
+                stack = v : rest,
                 locals = locals ctx // [(fromIntegral i, v)]
             }
         step ctx (GetGlobal i) = do

tests/Test.hs

@@ -34,7 +34,7 @@ compile file = do
 main :: IO ()
 main = do
   files <- Directory.listDirectory "tests/samples"
-  -- let files = ["resizing.wast"]
+  -- let files = ["tee_local.wast"]
   scriptTestCases <- (`mapM` files) $ \file -> do
     content <- LBS.readFile $ "tests/samples/" ++ file
     let Right script = Parser.parseScript <$> Lexer.scanner content