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 macros when and unless

Browse Source
This commit is contained in:
Pekka Laiho 2022-07-04 13:28:16 +07:00
parent 8f4edd2106
commit 9aa9d4b20f
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/LispFactory.php
View File

@ -55,6 +55,9 @@ class LispFactory
$lisp->readEval('(def defn (macro (name args body) (quasiquote (def (unquote name) (fn (unquote args) (unquote body))))))'); $lisp->readEval('(def defn (macro (name args body) (quasiquote (def (unquote name) (fn (unquote args) (unquote body))))))');
$lisp->readEval('(def defmacro (macro (name args body) (quasiquote (def (unquote name) (macro (unquote args) (unquote body))))))'); $lisp->readEval('(def defmacro (macro (name args body) (quasiquote (def (unquote name) (macro (unquote args) (unquote body))))))');
$lisp->readEval('(def when (macro (test body) (quasiquote (if (unquote test) (unquote body) null))))');
$lisp->readEval('(def unless (macro (test body) (quasiquote (if (unquote test) null (unquote body)))))');
// Separate environment for user-defined stuff // Separate environment for user-defined stuff
$lisp->setEnv(new Env('user', $env)); $lisp->setEnv(new Env('user', $env));