mirrors/madlisp
1
0
Fork 0
mirror of https://github.com/peklaiho/madlisp.git synced 2024-11-26 07:04:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

support for macros in Types lib

Browse Source
This commit is contained in:
Pekka Laiho 2020-12-06 08:31:14 +07:00
parent c6193b6ea2
commit 496e1c2c2e
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Lib/Types.php
View File

@ -46,7 +46,11 @@ class Types implements ILib
$env->set('type', new CoreFunc('type', 'Return the type of argument as a string.', 1, 1,
function ($a) {
if ($a instanceof Func) {
if ($a->isMacro()) {
return 'macro';
} else {
return 'function';
}
} elseif ($a instanceof MList) {
return 'list';
} elseif ($a instanceof Vector) {
@ -74,9 +78,14 @@ class Types implements ILib
));
$env->set('fn?', new CoreFunc('fn?', 'Return true if argument is a function.', 1, 1,
// This returns true for macros as well, because they are functions
fn ($a) => $a instanceof Func
));
$env->set('macro?', new CoreFunc('macro?', 'Return true if argument is a macro.', 1, 1,
fn ($a) => $a instanceof Func && $a->isMacro()
));
$env->set('list?', new CoreFunc('list?', 'Return true if argument is a list.', 1, 1,
fn ($a) => $a instanceof MList
));