mirrors/madlisp
1
0
Fork 0
mirror of https://github.com/peklaiho/madlisp.git synced 2024-11-22 13:24:46 +00:00
Code Issues Packages Projects Releases Wiki Activity

Optimization: remove extra function call from macroexpand

Browse Source
This commit is contained in:
Pekka Laiho 2020-12-06 13:32:52 +07:00
parent dae6c8aed2
commit 304e112f37
1 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/Evaller.php
View File

@ -358,26 +358,18 @@ class Evaller
return $ast;
}
private function getMacroFn($ast, Env $env): ?Func
private function macroexpand($ast, Env $env)
{
if ($ast instanceof MList) {
while ($ast instanceof MList) {
$data = $ast->getData();
if (count($data) > 0 && $data[0] instanceof Symbol) {
$fn = $env->get($data[0]->getName(), false);
if ($fn && $fn instanceof Func && $fn->isMacro()) {
return $fn;
$ast = $fn->call(array_slice($data, 1));
continue;
}
}
}
return null;
}
private function macroexpand($ast, Env $env)
{
while (($fn = $this->getMacroFn($ast, $env))) {
// We know ast is a list
$ast = $fn->call(array_slice($ast->getData(), 1));
break;
}
return $ast;