kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-11-13 01:43:50 +03:00
Code Issues Projects Releases Wiki Activity

cpp: add number?, fn? and macro?

Browse Source
This commit is contained in:
Stephen Thirlwall 2017-10-10 10:02:09 +11:00
parent 3eb7df5a61
commit d53749f28e
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
cpp/Core.cpp
View File

@ -64,6 +64,7 @@ BUILTIN_ISA("atom?", malAtom);
BUILTIN_ISA("keyword?", malKeyword);
BUILTIN_ISA("list?", malList);
BUILTIN_ISA("map?", malHash);
BUILTIN_ISA("number?", malInteger);
BUILTIN_ISA("sequential?", malSequence);
BUILTIN_ISA("string?", malString);
BUILTIN_ISA("symbol?", malSymbol);
@ -241,6 +242,19 @@ BUILTIN("first")
return seq->first();
}
BUILTIN("fn?")
{
CHECK_ARGS_IS(1);
malValuePtr arg = *argsBegin++;
// Lambdas are functions, unless they're macros.
if (const malLambda* lambda = DYNAMIC_CAST(malLambda, arg)) {
return mal::boolean(!lambda->isMacro());
}
// Builtins are functions.
return mal::boolean(DYNAMIC_CAST(malBuiltIn, arg));
}
BUILTIN("get")
{
CHECK_ARGS_IS(2);
@ -270,6 +284,15 @@ BUILTIN("keyword")
return mal::keyword(":" + token->value());
}
BUILTIN("macro?")
{
CHECK_ARGS_IS(1);
// Macros are implemented as lambdas, with a special flag.
const malLambda* lambda = DYNAMIC_CAST(malLambda, *argsBegin);
return mal::boolean((lambda != NULL) && lambda->isMacro());
}
BUILTIN("meta")
{
CHECK_ARGS_IS(1);