diff options
| -rw-r--r-- | src/lisp/prelude.rs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/lisp/prelude.rs b/src/lisp/prelude.rs index bdaf639..3b8f151 100644 --- a/src/lisp/prelude.rs +++ b/src/lisp/prelude.rs | |||
| @@ -127,7 +127,7 @@ pub fn new_env() -> Environment { | |||
| 127 | result.map(LispExpr::BoolLit) | 127 | result.map(LispExpr::BoolLit) |
| 128 | }); | 128 | }); |
| 129 | 129 | ||
| 130 | primitive!(env, Arity::Exact(2), ">", |args, _| { | 130 | primitive!(env, Arity::Atleast(2), ">", |args, _| { |
| 131 | let nums = args | 131 | let nums = args |
| 132 | .into_iter() | 132 | .into_iter() |
| 133 | .map(|arg| arg.try_into()) | 133 | .map(|arg| arg.try_into()) |
| @@ -138,7 +138,7 @@ pub fn new_env() -> Environment { | |||
| 138 | )) | 138 | )) |
| 139 | }); | 139 | }); |
| 140 | 140 | ||
| 141 | primitive!(env, Arity::Exact(2), ">=", |args, _| { | 141 | primitive!(env, Arity::Atleast(2), ">=", |args, _| { |
| 142 | let nums = args | 142 | let nums = args |
| 143 | .into_iter() | 143 | .into_iter() |
| 144 | .map(|arg| arg.try_into()) | 144 | .map(|arg| arg.try_into()) |
| @@ -149,7 +149,7 @@ pub fn new_env() -> Environment { | |||
| 149 | )) | 149 | )) |
| 150 | }); | 150 | }); |
| 151 | 151 | ||
| 152 | primitive!(env, Arity::Exact(2), "<", |args, _| { | 152 | primitive!(env, Arity::Atleast(2), "<", |args, _| { |
| 153 | let nums = args | 153 | let nums = args |
| 154 | .into_iter() | 154 | .into_iter() |
| 155 | .map(|arg| arg.try_into()) | 155 | .map(|arg| arg.try_into()) |
| @@ -160,7 +160,7 @@ pub fn new_env() -> Environment { | |||
| 160 | )) | 160 | )) |
| 161 | }); | 161 | }); |
| 162 | 162 | ||
| 163 | primitive!(env, Arity::Exact(2), "<=", |args, _| { | 163 | primitive!(env, Arity::Atleast(2), "<=", |args, _| { |
| 164 | let nums = args | 164 | let nums = args |
| 165 | .into_iter() | 165 | .into_iter() |
| 166 | .map(|arg| arg.try_into()) | 166 | .map(|arg| arg.try_into()) |