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

Fix symbolName() and symbolNameValue() for C#

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-09-29 19:14:49 +00:00
parent b2dde14fea
commit ec166d52ce
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/kiss/Prelude.hx
View File

@@ -483,7 +483,7 @@ class Prelude {
return v; return v;
} }
public static function symbolNameValue(s:ReaderExp, allowTyped = false, allowMeta = false):String { public static function symbolNameValue(s:ReaderExp, allowTyped:Null<Bool> = false, allowMeta:Null<Bool> = false):String {
return switch (s.def) { return switch (s.def) {
case Symbol(name): name; case Symbol(name): name;
case TypedExp(_, innerExp) if (allowTyped): symbolNameValue(innerExp, false); // Meta must always precede type annotation case TypedExp(_, innerExp) if (allowTyped): symbolNameValue(innerExp, false); // Meta must always precede type annotation
@@ -504,7 +504,7 @@ class Prelude {
} }
// TODO make this behavior DRY with symbolNameValue // TODO make this behavior DRY with symbolNameValue
public static function symbolName(s:ReaderExp, allowTyped = false, allowMeta = false):ReaderExpDef { public static function symbolName(s:ReaderExp, allowTyped:Null<Bool> = false, allowMeta:Null<Bool> = false):ReaderExpDef {
return switch (s.def) { return switch (s.def) {
case Symbol(name): StrExp(name); case Symbol(name): StrExp(name);
case TypedExp(_, innerExp) if (allowTyped): symbolName(innerExp, false); // Meta must always precede type annotation case TypedExp(_, innerExp) if (allowTyped): symbolName(innerExp, false); // Meta must always precede type annotation