From f12f949dda91f596c8ec401375e48cef584218c2 Mon Sep 17 00:00:00 2001
From: Michael Williamson <mike@zwobble.org>
Date: Fri, 21 Jul 2023 16:16:19 +0100
Subject: Introduce type for Stack IR namespaces

---
 .../java/org/shedlang/compiler/stackir/StackCompiler.java    |  4 ++--
 .../java/org/shedlang/compiler/stackir/StackIrNamespace.java | 12 ++++++++++++
 2 files changed, 14 insertions(+), 2 deletions(-)
 create mode 100644 src/main/java/org/shedlang/compiler/stackir/StackIrNamespace.java

(limited to 'src/main/java/org/shedlang/compiler/stackir')

diff --git a/src/main/java/org/shedlang/compiler/stackir/StackCompiler.java b/src/main/java/org/shedlang/compiler/stackir/StackCompiler.java
index 85d3cc5a..537e9322 100644
--- a/src/main/java/org/shedlang/compiler/stackir/StackCompiler.java
+++ b/src/main/java/org/shedlang/compiler/stackir/StackCompiler.java
@@ -186,7 +186,7 @@ public class StackCompiler {
         return P.vector(new PushIntInstruction(node.value(), node.source()));
     }
 
-    public static PVector<Instruction> compileNamespace(TypedNamespaceNode node) {
+    public static StackIrNamespace compileNamespace(TypedNamespaceNode node) {
         var instructions = P.<Instruction>vector();
 
         instructions = instructions
@@ -208,7 +208,7 @@ public class StackCompiler {
                 ));
         }
 
-        return instructions;
+        return new StackIrNamespace(node.namespaceName(), instructions);
     }
 
     public static PVector<Instruction> compileNamespaceStatement(TypedNamespaceStatementNode node) {
diff --git a/src/main/java/org/shedlang/compiler/stackir/StackIrNamespace.java b/src/main/java/org/shedlang/compiler/stackir/StackIrNamespace.java
new file mode 100644
index 00000000..65fd41d3
--- /dev/null
+++ b/src/main/java/org/shedlang/compiler/stackir/StackIrNamespace.java
@@ -0,0 +1,12 @@
+package org.shedlang.compiler.stackir;
+
+import org.shedlang.compiler.stackir.instructions.Instruction;
+import org.shedlang.compiler.types.NamespaceName;
+
+import java.util.List;
+
+public record StackIrNamespace(
+    NamespaceName namespaceName,
+    List<Instruction> instructions
+) {
+}
-- 
cgit v1.2.3