Remove debug stuff

src/executor.rs

@@ -40,6 +40,39 @@ impl LispState {
 			}
 		});
 
+		add_function(&mut table, "sub", |x| {
+			if x.len() != 2 {
+				return vec![LispValue::Nil]
+			}
+
+			if let (LispValue::Integer(lhs), LispValue::Integer(rhs)) = (&x[0], &x[1]) {
+				return vec![LispValue::Integer(lhs - rhs)];
+			}
+			vec![LispValue::Nil]
+		});
+
+		add_function(&mut table, "mul", |x| {
+			if x.len() != 2 {
+				return vec![LispValue::Nil]
+			}
+
+			if let (LispValue::Integer(lhs), LispValue::Integer(rhs)) = (&x[0], &x[1]) {
+				return vec![LispValue::Integer(lhs * rhs)];
+			}
+			vec![LispValue::Nil]
+		});
+
+		add_function(&mut table, "div", |x| {
+			if x.len() != 2 {
+				return vec![LispValue::Nil]
+			}
+
+			if let (LispValue::Integer(lhs), LispValue::Integer(rhs)) = (&x[0], &x[1]) {
+				return vec![LispValue::Integer(lhs / rhs)];
+			}
+			vec![LispValue::Nil]
+		});
+
 		LispState {
 			table
 		}

src/main.rs

@@ -17,7 +17,6 @@ fn main() {
 			Vec::new()
 		}
 	};
-	println!("{:?}", tokens);
 	let instructions = parse(tokens);
 
 	let state = LispState::new();

src/parser.rs

@@ -112,7 +112,6 @@ fn parse_exp(tokens: Vec<Token>) -> Vec<OpCode> {
 				Token::CloseParen => {
 					panic!("Unexpected closing parenthesis");
 				},
-				_ => todo!()
 			}
 
 			i += 1;

src/test.lisp

@@ -1,3 +1,3 @@
 ; This is a comment
 
-(print (add 1333 12423))
+(print (add 1 (mul (div 16 2) (mul 13 2))))

src/tokenizer.rs

@@ -107,7 +107,9 @@ impl Tokenizer {
 					tokens.push(Token::Integer(self.storage.iter().collect::<String>().parse().unwrap()));
 					self.storage.clear();
 				} else {
+					if char != '_' {
 						self.storage.push(char);
+					}
 					continue;
 				}
 			}
@@ -166,7 +168,9 @@ impl Tokenizer {
 					} else if c.is_numeric() || c == '_' {
 						self.reading_num = true;
 						self.storage.clear();
+						if c != '_' {
 							self.storage.push(c);
+						}
 						continue;
 					}
 				}