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

add support for vectors to quasiquote

Browse Source
This commit is contained in:
Pekka Laiho 2020-12-05 17:15:15 +07:00
parent 25ba08a6e7
commit dae6fe455f
1 changed files with 40 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/Evaller.php
View File

@ -358,6 +358,25 @@ class Evaller
}
}
return $this->quasiquoteLoop($data);
} elseif ($ast instanceof Vector) {
return new MList([
new Symbol('ltov'),
$this->quasiquoteLoop($ast->getData())
]);
} elseif ($ast instanceof Symbol || $ast instanceof Hash) {
// Quote other forms which are affected by evaluation
return new MList([
new Symbol('quote'),
$ast
]);
} else {
return $ast;
}
}
private function quasiquoteLoop(array $data): MList
{
$result = new MList();
for ($i = count($data) - 1; $i >= 0; $i--) {
@ -383,11 +402,5 @@ class Evaller
}
return $result;
} elseif ($ast instanceof Symbol || $ast instanceof Collection) {
// Quote other forms which are affected by evaluation
return new MList([new Symbol('quote'), $ast]);
} else {
return $ast;
}
}
}