Compile val node to IR instructions

1 files changed, 13 insertions, 1 deletions

diff --git a/src/main/java/org/shedlang/compiler/stackir/StackCompiler.java b/src/main/java/org/shedlang/compiler/stackir/StackCompiler.java
index 7ff1338a..c0d1b04b 100644
--- a/src/main/java/org/shedlang/compiler/stackir/StackCompiler.java
+++ b/src/main/java/org/shedlang/compiler/stackir/StackCompiler.java
@@ -99,7 +99,7 @@ public class StackCompiler {
                 compileExpressionStatement(expressionStatement);
 
             case TypedValNode val ->
-                throw new UnsupportedOperationException("TODO");
+                compileVal(val);
         };
     }
 
@@ -146,4 +146,16 @@ public class StackCompiler {
     private static PVector<Instruction> compileStringLiteral(TypedStringLiteralNode node) {
         return P.vector(new PushStringInstruction(node.value(), node.source()));
     }
+
+    private static PVector<Instruction> compileTarget(TypedTargetNode target) {
+        return switch (target) {
+            case TypedTargetNode.Variable variable ->
+                P.vector(new LocalStoreInstruction(variable.name(), variable.source()));
+        };
+    }
+
+    private static PVector<Instruction> compileVal(TypedValNode val) {
+        return compileExpression(val.expression())
+            .plusAll(compileTarget(val.target()));
+    }
 }