From 733838d0a55de74e25e879f9fcf43c5c5c78e24a Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Tue, 28 Jan 2025 18:12:54 -0500
Subject: Fix namespace issues related to IR symbols

---
 src/backend/generator/expansion.scm | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'src/backend/generator/expansion.scm')

diff --git a/src/backend/generator/expansion.scm b/src/backend/generator/expansion.scm
index 9fe2e0a..1745e23 100644
--- a/src/backend/generator/expansion.scm
+++ b/src/backend/generator/expansion.scm
@@ -1,23 +1,23 @@
 (define-module (backend generator expansion)
   #:use-module (backend ast ir)
   #:use-module (backend utils merge-instructions)
-  #:export (instrs
-            not
-            neg
-            ret))
+  #:export (instrs-ir
+            not-ir
+            neg-ir
+            ret-ir))
 
 
-(define (instrs lst)
+(define (instrs-ir lst)
   #f
-  (list 'instrs (cons 'list (merge-instr lst))))
+  (list 'instrs-ir (cons 'list (merge-instr lst))))
 
-(define (not src dst) (unary 'not src dst))
-(define (neg src dst) (unary 'neg src dst))
+(define (not-ir src dst) (unary 'not-ir src dst))
+(define (neg-ir src dst) (unary 'neg-ir src dst))
 
-(define (ret src)
-  (list (list 'mov src (list 'reg "eax"))
-        (list 'ret)))
+(define (ret-ir src)
+  (list (list 'mov-ir src (list 'reg-ir "eax"))
+        (list 'ret-ir)))
 
 (define (unary op src dst)
-  (list (list 'mov src dst)
+  (list (list 'mov-ir src dst)
         (list op dst)))
-- 
cgit v1.2.3