summaryrefslogtreecommitdiff
path: root/src/modules/tacky/traverse.scm
diff options
context:
space:
mode:
authorbd <bdunahu@operationnull.com>2025-01-18 02:07:40 -0700
committerbd <bdunahu@operationnull.com>2025-01-18 02:07:40 -0700
commit14b2600bd58b0a4b09c6647c1d78ab7bccd4c1aa (patch)
tree511b6dfb8fca47e078ea3af6bf6ba428f0e7c0a1 /src/modules/tacky/traverse.scm
parenta3d234983b259576e985f810eacf0d03eefc02d2 (diff)
set modules folder to modules path
Diffstat (limited to 'src/modules/tacky/traverse.scm')
-rw-r--r--src/modules/tacky/traverse.scm16
1 files changed, 8 insertions, 8 deletions
diff --git a/src/modules/tacky/traverse.scm b/src/modules/tacky/traverse.scm
index 24c4054..5f1ad1f 100644
--- a/src/modules/tacky/traverse.scm
+++ b/src/modules/tacky/traverse.scm
@@ -1,5 +1,5 @@
-(define-module (modules tacky traverse)
- #:use-module (modules ast ir)
+(define-module (tacky traverse)
+ #:use-module (ast ir)
#:export (prog
func
stmt
@@ -26,8 +26,8 @@
(define (make-instruction op src instrs)
(let ((dst (make-temporary)))
(cons dst
- (append instrs
- (list (op dst src))))))
+ (append instrs
+ (list (op src dst))))))
(define make-temporary
(let ((count 100))
@@ -35,8 +35,8 @@
(set! count (1+ count))
(list 'tmp count))))
-(define (neg dst src)
- (list 'neg dst src))
+(define (neg src dst)
+ (list 'neg src dst))
-(define (not dst src)
- (list 'not dst src))
+(define (not src dst)
+ (list 'not src dst))