kiss-lang/kiss
1
0
Fork 0
Code Issues 6 Pull Requests Actions Packages Projects Releases Wiki Activity

some aliases are needed in KissInterp2

Browse Source
This commit is contained in:
Nat Quayle Nelson
2025-11-14 16:15:14 -06:00
parent 21299abf80
commit 3c9600dd5f
2 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/kiss/KissInterp2.hx
View File

@@ -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;
}

1
src/kiss/KissInterp2.kiss
View File

@@ -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))