2 files changed, 10 insertions, 10 deletions
diff --git a/src/modules/tacky/driver.scm b/src/modules/tacky/driver.scm
index c642059..9696306 100644
--- a/src/modules/tacky/driver.scm
+++ b/src/modules/tacky/driver.scm
@@ -1,6 +1,6 @@
-(define-module (modules tacky driver)
+(define-module (tacky driver)
   #:export (ast->tacky))
 
 
 (define (ast->tacky n)
-  (eval n (resolve-module '(modules tacky traverse))))
+  (eval n (resolve-module '(tacky traverse))))
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))