fix: quote macro

mute-interpreter/src/env/standard.rs

@@ -19,6 +19,12 @@ pub(super) fn standard() -> HashMap<String, Value> {
                 (macro* (name args body) ~(define (,name (fn* ,args ,body))) )
             },
         ),
+        (
+            "quote",
+            inline! {
+                (macro* (var) ~^,var)
+            },
+        ),
     ]
     .into_iter()
     .map(|(k, v)| (k.to_string(), Value::Node(v)))

mute-interpreter/src/evaluator.rs

@@ -211,6 +211,7 @@ pub fn eval_node(env: &Environment, ast_node: Node) -> Result<Node> {
                     Node::Eval(list) => unquote!(Do, list),
                     Node::Apply(list) => unquote!(Apply, list),
 
+                    Node::Quote(node) => Ok(Node::Quote(Box::new(unquote(env, *node)?))),
                     Node::Unquote(_) => eval_node(env, node),
                     node => Ok(node),
                 }

mute-parser/src/lexer.rs

@@ -92,6 +92,7 @@ fn next_token(input: &mut Peekable<Chars>) -> Result<Option<Token>, Error> {
         '{' => Token::LeftBrace,
         '}' => Token::RightBrace,
 
+        '^' => Token::Quote,
         '\'' => Token::Quote,
         '`' => Token::Quasiquote,
         '~' => Token::Quasiquote,