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

shortcut for quote

Browse Source
This commit is contained in:
Pekka Laiho 2020-05-31 11:50:53 +07:00
parent 9e03179650
commit 51058b18d3
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Reader.php
View File

@ -17,7 +17,14 @@ class Reader
private function readForm(array $tokens, int &$index) private function readForm(array $tokens, int &$index)
{ {
if ($tokens[$index] == '(') { if ($tokens[$index] == "'") {
$index++;
$contents = [new Symbol('quote')];
if ($index < count($tokens) && !in_array($tokens[$index], [')', ']', '}'])) {
$contents[] = $this->readForm($tokens, $index);
}
return new MList($contents);
} elseif ($tokens[$index] == '(') {
return $this->readList($tokens, $index); return $this->readList($tokens, $index);
} elseif ($tokens[$index] == '[') { } elseif ($tokens[$index] == '[') {
return $this->readVector($tokens, $index); return $this->readVector($tokens, $index);