marwood 1.0.0

Scheme R7RS 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

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

extern crate marwood;

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

    vm.eval_text("(define make-adder (lambda (x) (lambda (y) (+ x y))))")
        .unwrap();
    vm.eval_text("(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),
        }
    }
}