Implement quote support resolves #9

2021-05-30 22:08:29 -04:00
parent 3b3ab96f7d
commit a7caac30f9
2 changed files with 9 additions and 1 deletions
--- a/src/interpreter.rs
+++ b/src/interpreter.rs
@@ -135,8 +135,8 @@ pub fn interpret(exp: &Datum, env: &mut Env) -> Datum {
        List(v) if has_tag(v, "cond") => panic!("cond-not-supported"),
        List(v) if has_tag(v, "let") => panic!("let-not-supported"),
        List(v) if has_tag(v, "begin") => interpret_begin(v, env),
+        List(v) if has_tag(v, "quote") => v[1].clone(),
        List(v) => interpret_application(v, env),
-        // TODO: quoted
        _ => panic!("unknown-expression {:?}", exp),
    }
 }