euph 0.0.2

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
31
32
33
34
35
36

use std::mem;

use super::EuDef;
use crate::types::EuType;

pub const TO_VEC: EuDef = |env| {
    let a0 = env.pop()?.to_vec()?;
    env.push(EuType::vec(a0));
    Ok(())
};

pub const WRAP_VEC: EuDef = |env| {
    let a0 = env.pop()?;
    env.push(EuType::vec([a0]));
    Ok(())
};

pub const ALL_VEC: EuDef = |env| {
    let ts = EuType::Vec(mem::take(&mut env.stack));
    env.push(ts);
    Ok(())
};

pub const EVAL_VEC: EuDef = |env| {
    let a0 = env.pop()?;
    env.push(a0.eval_to_vec(env.scope.clone())?);
    Ok(())
};

pub const PAIR: EuDef = |env| {
    env.check_nargs(2)?;
    let a1 = env.stack.pop().unwrap();
    let a0 = env.stack.pop().unwrap();
    env.stack.push(EuType::vec([a0, a1]));
    Ok(())
};