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

(object) allow string fields

Browse Source
This commit is contained in:
Nat Quayle Nelson
2024-06-24 17:54:26 -06:00
parent d613c92a93
commit e3f1997409
1 changed files with 19 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
src/kiss/SpecialForms.hx
View File

@@ -114,17 +114,26 @@ class SpecialForms {
throw KissError.fromExp(wholeExp, "(object <field bindings...>) must have an even number of arguments");
}
EObjectDecl([
for (pair in args.groups(2))
{
quotes: Unquoted,
field: switch (pair[0].def) {
case Symbol(name) if (!name.contains(".")): name;
case TypedExp(_,
{pos: _, def: Symbol(_)}): throw KissError.fromExp(pair[0], "type specification on anonymous objects will be ignored");
default: throw KissError.fromExp(pair[0], "first expression in anonymous object field binding should be a plain symbol");
},
expr: k.convert(pair[1])
for (pair in args.groups(2)) {
switch (pair[0].def) {
case Symbol(name) if (!name.contains(".")):
{
field: name,
quotes: Unquoted,
expr: k.convert(pair[1])
};
case StrExp(s):
{
field: s,
quotes: Quoted,
expr: k.convert(pair[1])
};
case TypedExp(_, {pos: _, def: Symbol(_)}):
throw KissError.fromExp(pair[0], "type specification on anonymous object fields will be ignored");
default:
throw KissError.fromExp(pair[0], "first expression in anonymous object field binding should be a plain symbol or a string");
}
}
]).withMacroPosOf(wholeExp);
};