summaryrefslogtreecommitdiff
path: root/src/modules/tacky/traverse.scm
diff options
context:
space:
mode:
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))