marwood 0.3.1

Scheme R5RS Virtual Machine
Documentation 
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

use log::error;
use marwood::cell::Cell;
use marwood::vm::Vm;
use marwood::{cell, lex, list, parse};

extern crate marwood;

fn main() {
    let mut vm = Vm::new();

    vm.eval(&parse!(
        "(define make-adder (lambda (x) (lambda (y) (+ x y))))"
    ))
    .unwrap();

    vm.eval(&parse!("(define add-1000 (make-adder 1000))"))
        .unwrap();

    for it in 0..5 {
        match vm.eval(&list!["add-1000", it]) {
            Ok(result) => {
                println!("{} => {}", it, result);
                assert_eq!(result, cell![1000 + it])
            }
            Err(e) => error!("error: {}", e),
        }
    }
}