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

make symbol and value macros error when undefined

Browse Source
This commit is contained in:
Nat Quayle Nelson
2024-07-25 19:35:46 -05:00
parent a2aaca9f7e
commit a265854c0b
1 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/kiss/Macros.hx
View File

@@ -275,13 +275,23 @@ class Macros {
k.doc("#value", 1, 1, '(#value "<name>")'); k.doc("#value", 1, 1, '(#value "<name>")');
macros["#value"] = (wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) -> { macros["#value"] = (wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) -> {
var b = wholeExp.expBuilder(); var b = wholeExp.expBuilder();
b.str(Context.definedValue(compileTimeResolveToString("The only argument to (#value...)", "a compiler flag's name", args[0], k))); var key = compileTimeResolveToString("The only argument to (#value...)", "a compiler flag's name", args[0], k);
var value = Context.definedValue(key);
if (value == null) {
throw KissError.fromExp(wholeExp, 'Compiler value "$key" is not defined');
}
b.str(value);
}; };
k.doc("#symbol", 1, 1, '(#symbol "<name>")'); k.doc("#symbol", 1, 1, '(#symbol "<name>")');
macros["#symbol"] = (wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) -> { macros["#symbol"] = (wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) -> {
var b = wholeExp.expBuilder(); var b = wholeExp.expBuilder();
b.symbol(Context.definedValue(compileTimeResolveToString("The only argument to (#symbol...)", "a compiler flag's name", args[0], k))); var key = compileTimeResolveToString("The only argument to (#value...)", "a compiler flag's name", args[0], k);
var value = Context.definedValue(key);
if (value == null) {
throw KissError.fromExp(wholeExp, 'Compiler value $key is not defined');
}
b.symbol(value);
}; };
k.doc("or", 1, null, "(or <v1> <values...>)"); k.doc("or", 1, null, "(or <v1> <values...>)");