From 000b28c88bbfd1fde94b5e01ce2766230077e013 Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Sun, 12 Jan 2025 15:10:23 -0700
Subject: Expansion of complex expressions into set of instructions

---
 src/modules/ast/syntax-tree.scm | 47 +++++++++++++++++------------------------
 1 file changed, 19 insertions(+), 28 deletions(-)

(limited to 'src/modules/ast/syntax-tree.scm')

diff --git a/src/modules/ast/syntax-tree.scm b/src/modules/ast/syntax-tree.scm
index b7db8dd..e2ca8da 100644
--- a/src/modules/ast/syntax-tree.scm
+++ b/src/modules/ast/syntax-tree.scm
@@ -1,34 +1,30 @@
 (define-module (modules ast syntax-tree)
   #:use-module (srfi srfi-9)
   #:export (make-program
-            program?
-            program-function
+	    program?
+	    program-function
 
-            make-function
-            function?
-            function-id
-            function-stmt
+	    make-function
+	    function?
+	    function-id
+	    function-stmt
 
-            make-stmt
-            stmt?
-            stmt-expr
+	    make-stmt
+	    stmt?
+	    stmt-expr
 
-            make-expr
-            expr?
-            expr-type
+	    make-unary
+	    unary?
+	    unary-operator
+	    unary-expr
 
-            make-unary
-            unary?
-            unary-operator
-            unary-expr
+	    make-const
+	    const?
+	    const-int
 
-            make-const
-            const?
-            const-int
-
-            make-id
-            id?
-            id-symbol))
+	    make-id
+	    id?
+	    id-symbol))
 
 (define-record-type <program>
   (make-program func)
@@ -46,11 +42,6 @@
   stmt?
   (expr stmt-expr))
 
-(define-record-type <expr>
-  (make-expr type)
-  expr?
-  (type expr-type))
-
 (define-record-type <unary>
   (make-unary op expr)
   unary?
-- 
cgit v1.2.3