mirrors/madlisp
1
0
Fork 0
mirror of https://github.com/peklaiho/madlisp.git synced 2024-10-18 13:02:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

small optimization for evaller

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

27
src/Evaller.php
View File

@ -37,23 +37,28 @@ class Evaller
}
}
// Return fast for optimization if not list
if (!($ast instanceof MList)) {
return $this->evalAst($ast, $env);
}
// Return fast for optimization
// Check two times: before and after macro expansion
for ($check = 0; $check <= 1; $check++) {
if (!($ast instanceof MList)) {
if ($ast instanceof Symbol || $ast instanceof Collection) {
return $this->evalAst($ast, $env);
} else {
// This is not evaluated so we can just return it.
return $ast;
}
}
// Perform macro expansion
$ast = $this->macroexpand($ast, $env);
// After macro expansion we have to check for not-a-list again
if (!($ast instanceof MList)) {
return $this->evalAst($ast, $env);
// Perform macro expansion on first iteration
if ($check == 0) {
$ast = $this->macroexpand($ast, $env);
}
}
$astData = $ast->getData();
$astLength = count($astData);
// Empty list
// Empty list, return
if ($astLength == 0) {
return $ast;
}