From 8ceaf87c43d412b758bb7562364f7ae8bee913ae Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Tue, 8 Apr 2025 21:41:35 -0400
Subject: Add parsing functionality for R-type expressions

---
 src/main.lisp | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'src/main.lisp')

diff --git a/src/main.lisp b/src/main.lisp
index f6e5754..8a36a66 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -47,8 +47,14 @@ _/_/                                  _/_/  "
       (t (let ((tokens (lex:file->tokens file)))
            (if tokens
                (progn (pprint tokens)
-                      (terpri))
+                      (terpri)
+                      (format t "---~%"))
                (error "The file does not exist, or it could not be opened.~%"))
+           (if parse?
+               (let ((tokens (parse:tokens->ast tokens)))
+                 (progn (pprint tokens)
+                        (terpri)
+                        (format t "---~%"))))
            (format t "Nitimur in Vetitum~%"))))))
 
 
-- 
cgit v1.2.3