felixm/schemers
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Implement set! resolves #3

Browse Source
This commit is contained in:
Felix Martin
2021-05-30 12:44:25 -04:00
parent 1da08c0a43
commit 3b3ab96f7d
3 changed files with 33 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/interpreter.rs
View File

@@ -42,6 +42,17 @@ fn interpret_if(args: &Vec<Datum>, env: &mut Env) -> Datum {
}
}
fn interpret_set(args: &Vec<Datum>, env: &mut Env) -> Datum {
match &args[1] {
Symbol(_) => {
let var = &args[1];
let val = interpret(&args[2], env);
environment::set_variable(var, val, env)
}
_ => panic!("INTERPRET-SET -- cannot set {:?}", args),
}
}
fn interpret_define(args: &Vec<Datum>, env: &mut Env) -> Datum {
match &args[1] {
Symbol(_) => {
@@ -119,7 +130,7 @@ pub fn interpret(exp: &Datum, env: &mut Env) -> Datum {
Unspecified => Unspecified,
Symbol(_) => environment::lookup_variable_value(exp, env),
List(v) if has_tag(v, "if") => interpret_if(v, env),
List(v) if has_tag(v, "set!") => panic!("assignment-not-supported"),
List(v) if has_tag(v, "set!") => interpret_set(v, env),
List(v) if has_tag(v, "define") => interpret_define(v, env),
List(v) if has_tag(v, "cond") => panic!("cond-not-supported"),
List(v) if has_tag(v, "let") => panic!("let-not-supported"),