teitoku/rust-mal
1
0
Fork 0
mirror of https://github.com/teo3300/rust-mal.git synced 2026-01-12 17:25:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

Applied step 5 TCO

Browse Source 
- Some tests disabled for incompatibility
- next step is to restore those tests, as well as a whole "eval" test
This commit is contained in:
teo3300
2023-12-21 19:25:24 +09:00
parent c6eeb225df
commit 0b47444836
6 changed files with 191 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/core.rs
View File

@ -31,7 +31,7 @@ macro_rules! env_init {
use crate::printer::prt;
use crate::types::MalType::{Bool, Fun, Int, List, Nil, Str};
use crate::types::{mal_assert, mal_comp, MalArgs};
use crate::types::{mal_assert, mal_assert_eq, mal_comp, MalArgs};
pub fn ns_init() -> Env {
env_init!(None,
@ -55,6 +55,7 @@ pub fn ns_init() -> Env {
"xor" => Fun(|a| Ok(Bool(a.iter().filter(|a| !matches!(a, Nil | Bool(false))).count() == 1)), "Returns true if one of the arguments is different from 'nil' or 'false', false otherwise"),
"not" => Fun(|a| Ok(Bool(matches!(car(a)?, Nil | Bool(false)))), "Negate the first argument"),
"=" => Fun(mal_comp, "Return true if the first two parameters are the same type and content, in case of lists propagate to all elements"),
"assert" => Fun(mal_assert, "Return an error if assertion fails")
"assert" => Fun(mal_assert, "Return an error if assertion fails"),
"assert-eq" => Fun(mal_assert_eq, "Return an error if arguments are not the same")
)
}