Add finvoke parsing and interpreting

1 files changed, 9 insertions, 0 deletions

diff --git a/cmd/hs/hs.ha b/cmd/hs/hs.ha
index 758ad62..c0ad72f 100644
--- a/cmd/hs/hs.ha
+++ b/cmd/hs/hs.ha
@@ -40,6 +40,15 @@ export fn main() void = {
 		fmt::printfln("{}: {}", var.0, var.1)!;
 	};
 
+	let ast = parser::parse(&p);
+	let ast = match (ast) {
+	case let a: parser::ast =>
+		yield a;
+	case let e: parser::error =>
+		fmt::fatal(parser::strerror(e));
+	};
+	interpreter::interpret(&it, ast);
+
 	//let tk = parsetoken(&p);
 	//fmt::printfln("tk value: {}\ntk type: {}", tk.value, parser::strtktype(tk.tktype))!;
 	//tk = parsetoken(&p);