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

remove ability to call env with argument

Browse Source
This commit is contained in:
Pekka Laiho 2020-12-12 09:08:37 +07:00
parent dc6c206f4e
commit 487a4fa345
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Evaller.php
View File

@ -206,15 +206,11 @@ class Evaller
$ast = $astData[$astLength - 1];
continue; // tco
} elseif ($symbolName == 'env') {
if ($astLength >= 2) {
if (!($astData[1] instanceof Symbol)) {
throw new MadLispException("first argument to env is not symbol");
if ($astLength != 1) {
throw new MadLispException("env does not take arguments");
}
return $env->get($astData[1]->getName());
} else {
return $env;
}
} elseif ($symbolName == 'eval') {
if ($astLength == 1) {
return null;