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

fix error messages

Browse Source
This commit is contained in:
Pekka Laiho 2020-12-14 09:32:16 +07:00
parent c87ce34f1e
commit 6869c0392b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Evaller.php
View File

@ -188,7 +188,7 @@ class Evaller
// Do not allow reserved symbols to be defined // Do not allow reserved symbols to be defined
$reservedSymbols = ['__FILE__', '__DIR__']; $reservedSymbols = ['__FILE__', '__DIR__'];
if (in_array($name, $reservedSymbols)) { if (in_array($name, $reservedSymbols)) {
throw new MadLispException("def reserved symbol $name"); throw new MadLispException("attempt to def reserved symbol $name");
} }
$value = $this->eval($astData[2], $env, $depth + 1); $value = $this->eval($astData[2], $env, $depth + 1);
@ -478,7 +478,7 @@ class Evaller
return $env->unset($astData[1]->getName()); return $env->unset($astData[1]->getName());
} elseif ($symbolName == 'while') { } elseif ($symbolName == 'while') {
if ($astLength < 3) { if ($astLength < 3) {
throw new MadLispException("while at least 2 arguments"); throw new MadLispException("while requires at least 2 arguments");
} }
$result = null; $result = null;