diff options
author | bnewbold <bnewbold@robocracy.org> | 2016-04-25 23:54:43 -0400 |
---|---|---|
committer | bnewbold <bnewbold@robocracy.org> | 2016-04-25 23:54:43 -0400 |
commit | 3586683bda805c5156649f760f26921b9d0a2250 (patch) | |
tree | 5cfd32891dfc335c9d06690b60c75fe9e180709c /prelude.scm | |
parent | 21bf5448a581e4839c81c4c37e655c0e85e5208a (diff) | |
download | spectrum-3586683bda805c5156649f760f26921b9d0a2250.tar.gz spectrum-3586683bda805c5156649f760f26921b9d0a2250.zip |
rust: add a (lazy) 'if' applier
Diffstat (limited to 'prelude.scm')
-rw-r--r-- | prelude.scm | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/prelude.scm b/prelude.scm index a3b123e..a7469b5 100644 --- a/prelude.scm +++ b/prelude.scm @@ -18,7 +18,6 @@ ; my favorite! (define cdaddr (lambda (x) (cdr (car (cdr (cdr x)))))) -(define if (lambda (pred tval fval) (cond (pred tval) (else fval)))) (define not (lambda (x) (if x #f #t))) (define abs (lambda (x) (if (> x 0) x (* -1 x)))) |