From 3c9600dd5f00d5e7a7590855eaed534ee928ea52 Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Fri, 14 Nov 2025 16:15:14 -0600 Subject: [PATCH] some aliases are needed in KissInterp2 --- src/kiss/KissInterp2.hx | 6 ++++++ src/kiss/KissInterp2.kiss | 1 + 2 files changed, 7 insertions(+) diff --git a/src/kiss/KissInterp2.hx b/src/kiss/KissInterp2.hx index cacb2f8..a6f407b 100644 --- a/src/kiss/KissInterp2.hx +++ b/src/kiss/KissInterp2.hx @@ -38,6 +38,12 @@ class KissInterp2 { specialForms = _specialForms(); identAliases = kiss.Kiss.defaultIdentAliases; callAliases = kiss.Kiss.defaultCallAliases; + + callAliases["zip"] = kiss.ReaderExp.ReaderExpDef.Symbol("Prelude.zipThrow"); + callAliases["zipKeep"] = kiss.ReaderExp.ReaderExpDef.Symbol("Prelude.zipKeep"); + callAliases["zipDrop"] = kiss.ReaderExp.ReaderExpDef.Symbol("Prelude.zipDrop"); + callAliases["zipThrow"] = kiss.ReaderExp.ReaderExpDef.Symbol("Prelude.zipThrow"); + globals["Prelude"] = kiss.Prelude; $preexistingNewBody; } diff --git a/src/kiss/KissInterp2.kiss b/src/kiss/KissInterp2.kiss index 5058e8e..a6d6f4f 100644 --- a/src/kiss/KissInterp2.kiss +++ b/src/kiss/KissInterp2.kiss @@ -8,6 +8,7 @@ (import kiss.ReaderExp.ReaderExpDef.FieldExp) (import kiss.Stream) +// TODO don't add to these directly here! The constructor does it (prop &mut :ReadTable readTable (Reader.builtins)) (prop &mut :ReadTable startOfLineReadTable (new Map)) (prop &mut :ReadTable startOfFileReadTable (new Map))