From f9f52cd6081036fa98e86a537c925f7a8e924df7 Mon Sep 17 00:00:00 2001
From: Kai Stevenson <kai@kaistevenson.com>
Date: Tue, 4 Nov 2025 20:23:41 -0800
Subject: strict arg count for createFn

---
 src/lang/ks-lang/index.ts | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/lang/ks-lang')

diff --git a/src/lang/ks-lang/index.ts b/src/lang/ks-lang/index.ts
index c60203f..c9c7405 100644
--- a/src/lang/ks-lang/index.ts
+++ b/src/lang/ks-lang/index.ts
@@ -7,12 +7,17 @@ import {
   EvalError,
   CallFn,
   EmptyStackFrame,
+  ASTNode,
 } from "../ts-lang";
 
+export type TransformArgs<Args extends readonly ASTNode[]> = {
+  [Idx in keyof Args]: any;
+};
+
 export const createFn = <Program extends string>(
   program: Program
 ): Evaluate<Parse<Lex<Program>>> extends [infer ProgramFn extends FnPrim]
-  ? <const Args extends any[]>(
+  ? <const Args extends TransformArgs<ProgramFn["args"]>>(
       ...args: Args
     ) => CallFn<ProgramFn, Args, EmptyStackFrame>
   : EvalError<"Cannot create a function from a program that does not eval to a function"> => {
-- 
cgit v1.2.3-70-g09d2