From 5fdaa70d0af1356652de38f66fccef4bd3088a26 Mon Sep 17 00:00:00 2001
From: Kai Stevenson <kai@kaistevenson.com>
Date: Sun, 2 Nov 2025 19:42:39 -0800
Subject: fn, call

---
 src/lang/builtin/sbuiltin.ts | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 src/lang/builtin/sbuiltin.ts

(limited to 'src/lang/builtin/sbuiltin.ts')

diff --git a/src/lang/builtin/sbuiltin.ts b/src/lang/builtin/sbuiltin.ts
new file mode 100644
index 0000000..704e688
--- /dev/null
+++ b/src/lang/builtin/sbuiltin.ts
@@ -0,0 +1,33 @@
+import { ASTNode } from "../core/common";
+import {
+  CallFn,
+  FnPrim,
+  GetEvaluatedChildren,
+  StackFrame,
+  EvalError,
+} from "../core/eval";
+import { ToString } from "../util";
+
+export type SBUILTIN_Call<
+  Node extends ASTNode,
+  Frame extends StackFrame
+> = GetEvaluatedChildren<Node, Frame> extends [
+  infer Fn extends FnPrim,
+  ...infer Values extends readonly any[]
+]
+  ? CallFn<Fn, Values, Frame>
+  : EvalError<`Invalid params for function call: ${ToString<
+      GetEvaluatedChildren<Node, Frame>
+    >}`>;
+
+export type SBUILTIN_Map<
+  Node extends ASTNode,
+  Frame extends StackFrame
+> = GetEvaluatedChildren<Node, Frame> extends [
+  infer Arr extends readonly any[],
+  infer Fn extends FnPrim
+]
+  ? { [Idx in keyof Arr]: CallFn<Fn, [Arr[Idx]], Frame> }
+  : EvalError<`Invalid params for map: ${ToString<
+      GetEvaluatedChildren<Node, Frame>
+    >}`>;
-- 
cgit v1.2.3-70-g09d2