euph 0.2.0

A functional stack-based programming language
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

use std::mem;

use crate::{
    fns::EuDef,
    types::EuType,
};

pub const TO_MAP: EuDef = |env| {
    let a0 = env.arg("a0")?.to_map()?;
    env.push(EuType::Map(a0));
    Ok(())
};

pub const WRAP_MAP: EuDef = |env| {
    let a0 = env.arg("a0")?;
    env.push(EuType::map_([(EuType::I64(0), a0)]));
    Ok(())
};

pub const ALL_MAP: EuDef = |env| {
    let kvs = EuType::Vec(mem::take(&mut env.stack)).to_map()?;
    env.push(EuType::Map(kvs));
    Ok(())
};

pub const EVAL_MAP: EuDef = |env| {
    let a0 = env.arg("a0 (eval)")?;
    env.push(a0.eval_to_map(env.scope.clone())?);
    Ok(())
};