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

added special form: undef

Browse Source
This commit is contained in:
Pekka Laiho 2020-12-08 16:13:40 +07:00
parent 07f9c7af8e
commit 86cba08088
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
README.md
View File

@ -276,6 +276,7 @@ or | yes | `(or false 0 1)` | `1` | Return the first value that evaluates to
quote | yes | | | See the section Quoting. quote | yes | | | See the section Quoting.
quasiquote | yes | | | See the section Quoting. quasiquote | yes | | | See the section Quoting.
quasiquote-expand | yes | | | See the section Quoting. quasiquote-expand | yes | | | See the section Quoting.
undef | yes | `(undef myFn)` | `<function>` | Remove a definition from the current environment. Return the removed value.
## Functions ## Functions

10
src/Evaller.php
View File

@ -367,6 +367,16 @@ class Evaller
} }
return $this->quasiquote($astData[1]); return $this->quasiquote($astData[1]);
} elseif ($symbolName == 'undef') {
if ($astLength != 2) {
throw new MadLispException("undef requires exactly 1 argument");
}
if (!($astData[1] instanceof Symbol)) {
throw new MadLispException("first argument to undef is not symbol");
}
return $env->unset($astData[1]->getName());
} }
} }