diff options
| author | nea <nea@nea.moe> | 2023-08-10 18:30:49 +0200 |
|---|---|---|
| committer | nea <nea@nea.moe> | 2023-08-10 18:30:49 +0200 |
| commit | 912c9918d9a5afbfb023b650bed6e2754f030d5e (patch) | |
| tree | f73ad72e3fa2389458ef927f1bec4fb9805c813a /res/builtins.lisp | |
| parent | 873864974127ec4f123c7db0560235e806c3faab (diff) | |
| download | nealisp-912c9918d9a5afbfb023b650bed6e2754f030d5e.tar.gz nealisp-912c9918d9a5afbfb023b650bed6e2754f030d5e.tar.bz2 nealisp-912c9918d9a5afbfb023b650bed6e2754f030d5e.zip | |
Add more tests
Diffstat (limited to 'res/builtins.lisp')
| -rw-r--r-- | res/builtins.lisp | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/res/builtins.lisp b/res/builtins.lisp index e355c2f..1564e62 100644 --- a/res/builtins.lisp +++ b/res/builtins.lisp @@ -20,3 +20,13 @@ (def false :false) (export true false) +(comment "boolean operations. all of those are strict") +(defun | (l r) (if l true r)) +(defun & (l r) (if l r false)) +(defun not (v) (if v false true)) +(defun ^ (l r) (if l (not r) r)) +(export | & not ^) + +(comment "comparisons") +(defun gt (l r) (lt r l)) +(export gt) |