feat: throw error if unbound name

CS4215-OOGA · Mar 28, 2024 · 87034d5 · 87034d5
1 parent 1c40fd7
commit 87034d5
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/vm/oogavm-compiler.ts b/src/vm/oogavm-compiler.ts
@@ -23,7 +23,11 @@ type CompileTimeEnvironment = CompileTimeFrame[];
 function compileTimeEnvironmentPosition(env: CompileTimeEnvironment, x: string) {
   let frameIndex = env.length;
   while (frameIndex > 0 && valueIndex(env[--frameIndex], x) === -1) {}
-  return [frameIndex, valueIndex(env[frameIndex], x)]
+  let vIndex = valueIndex(env[frameIndex], x);
+  if (vIndex === -1) {
+    throw Error("unbound name: " + x);
+  }
+  return [frameIndex, vIndex];
 }
 
 function valueIndex(frame: CompileTimeFrame, x: string) {