From 5cea39649d613864f3e7a688cb2a7ecbde8bd6cd Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Tue, 28 Jan 2025 17:52:23 -0500
Subject: Simplified declaring new IR nodes in (backend ast ir)

---
 src/backend/ast/ir.scm | 41 +++++++++--------------------------------
 1 file changed, 9 insertions(+), 32 deletions(-)

(limited to 'src/backend/ast/ir.scm')

diff --git a/src/backend/ast/ir.scm b/src/backend/ast/ir.scm
index 102739c..e4c1713 100644
--- a/src/backend/ast/ir.scm
+++ b/src/backend/ast/ir.scm
@@ -16,35 +16,12 @@
 ;;;
 ;;; Code:
 
-(define (ir-node type . args)
-  (cons type args))
-
-(define (prog func)
-  (ir-node 'prog func))
-
-(define (srout label instrs)
-  (ir-node 'srout label instrs))
-
-(define (neg dst)
-  (ir-node 'neg dst))
-
-(define (not dst)
-  (ir-node 'not dst))
-
-(define (mov src dst)
-  (ir-node 'mov src dst))
-
-(define (stack val)
-  (ir-node 'stack val))
-
-(define (reg val)
-  (ir-node 'reg val))
-
-(define (imm val)
-  (ir-node 'imm val))
-
-(define (tmp num)
-  (ir-node 'tmp num))
-
-(define (ret)
-  (ir-node 'ret))
+(define-syntax def-ir-nodes
+  (syntax-rules ()
+    ((_ names ...)
+     (begin
+       (define (names . args)
+	 (cons 'names args)) ...))))
+
+(def-ir-nodes
+  prog srout neg not mov stack reg imm tmp ret)
-- 
cgit v1.2.3