11 files changed, 39 insertions, 39 deletions
diff --git a/src/modules/ast/ir.scm b/src/modules/ast/ir.scm
index 3b373e5..50e9e29 100644
--- a/src/modules/ast/ir.scm
+++ b/src/modules/ast/ir.scm
@@ -1,4 +1,4 @@
-(define-module (modules ast ir)
+(define-module (ast ir)
   #:export (prog
             srout
             neg
@@ -31,8 +31,8 @@
 (define (not dst)
   (ir-node 'not dst))
 
-(define (mov dst src)
-  (ir-node 'mov dst src))
+(define (mov src dst)
+  (ir-node 'mov src dst))
 
 (define (stack val)
   (ir-node 'stack val))
diff --git a/src/modules/generator/allocate.scm b/src/modules/generator/allocate.scm
index 193cadb..f975fca 100644
--- a/src/modules/generator/allocate.scm
+++ b/src/modules/generator/allocate.scm
@@ -1,5 +1,5 @@
-(define-module (modules generator allocate)
-  #:use-module (modules utils assign-stack)
+(define-module (generator allocate)
+  #:use-module (utils assign-stack)
   #:export (expansion->allocate))
 
 
diff --git a/src/modules/generator/assembly.scm b/src/modules/generator/assembly.scm
index 50e158e..55eaaed 100644
--- a/src/modules/generator/assembly.scm
+++ b/src/modules/generator/assembly.scm
@@ -1,7 +1,7 @@
-(define-module (modules generator assembly)
-  #:use-module (modules ast ir)
-  #:use-module (modules utils assign-stack)
-  #:use-module (modules utils merge-instructions)
+(define-module (generator assembly)
+  #:use-module (ast ir)
+  #:use-module (utils assign-stack)
+  #:use-module (utils merge-instructions)
   #:export (instrs
             mov))
 
@@ -10,9 +10,9 @@
   (cons 'list (cons (list 'alloc (abs (get-frame-size)))
                     (merge-instr lst))))
 
-(define (mov dst src)
+(define (mov src dst)
   (if (and (eq? 'stack (car dst))
            (eq? 'stack (car src)))
-      (append (list (list 'mov (reg "r10") src))
-              (list (list 'mov dst (reg "r10"))))
-      (list 'mov dst src)))
+      (append (list (list 'mov src (reg "r10d")))
+              (list (list 'mov (reg "r10d") dst)))
+      (list 'mov src dst)))
diff --git a/src/modules/generator/driver.scm b/src/modules/generator/driver.scm
index dc95268..8b9ed30 100644
--- a/src/modules/generator/driver.scm
+++ b/src/modules/generator/driver.scm
@@ -1,9 +1,9 @@
-(define-module (modules generator driver)
-  #:use-module (modules generator allocate)
+(define-module (generator driver)
+  #:use-module (generator allocate)
   #:export (tacky->assembly))
 
 
 (define (tacky->assembly n)
   (eval (expansion->allocate
-         (eval n (resolve-module '(modules generator expansion))))
-        (resolve-module '(modules generator assembly))))
+         (eval n (resolve-module '(generator expansion))))
+        (resolve-module '(generator assembly))))
diff --git a/src/modules/generator/expansion.scm b/src/modules/generator/expansion.scm
index 3beb6db..5bfa878 100644
--- a/src/modules/generator/expansion.scm
+++ b/src/modules/generator/expansion.scm
@@ -1,6 +1,6 @@
-(define-module (modules generator expansion)
-  #:use-module (modules ast ir)
-  #:use-module (modules utils merge-instructions)
+(define-module (generator expansion)
+  #:use-module (ast ir)
+  #:use-module (utils merge-instructions)
   #:export (instrs
             not
             neg
@@ -11,13 +11,13 @@
   #f
   (list 'instrs (cons 'list (merge-instr lst))))
 
-(define (not dst src) (unary 'not dst src))
-(define (neg dst src) (unary 'neg dst src))
+(define (not src dst) (unary 'not src dst))
+(define (neg src dst) (unary 'neg src dst))
 
 (define (ret src)
-  (list (list 'mov (list 'reg "eax") src)
+  (list (list 'mov src (list 'reg "eax"))
         (list 'ret)))
 
-(define (unary op dst src)
-  (list (list 'mov dst src)
+(define (unary op src dst)
+  (list (list 'mov src dst)
         (list op dst)))
diff --git a/src/modules/lexer/driver.scm b/src/modules/lexer/driver.scm
index e1a4f6e..b4d3282 100644
--- a/src/modules/lexer/driver.scm
+++ b/src/modules/lexer/driver.scm
@@ -1,4 +1,4 @@
-(define-module (modules lexer driver)
+(define-module (lexer driver)
   #:export (read-tokens))
 
 (define (read-tokens)
diff --git a/src/modules/parser/driver.scm b/src/modules/parser/driver.scm
index 8fd42a4..f5e503e 100644
--- a/src/modules/parser/driver.scm
+++ b/src/modules/parser/driver.scm
@@ -1,4 +1,4 @@
-(define-module (modules parser driver)
+(define-module (parser driver)
   #:use-module (ice-9 match)
   #:export (tokens->ast))
 
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))
diff --git a/src/modules/utils/assign-stack.scm b/src/modules/utils/assign-stack.scm
index 8037400..1096846 100644
--- a/src/modules/utils/assign-stack.scm
+++ b/src/modules/utils/assign-stack.scm
@@ -1,4 +1,4 @@
-(define-module (modules utils assign-stack)
+(define-module (utils assign-stack)
   #:export (make-location
             get-frame-size))
 
diff --git a/src/modules/utils/merge-instructions.scm b/src/modules/utils/merge-instructions.scm
index dea5556..754117c 100644
--- a/src/modules/utils/merge-instructions.scm
+++ b/src/modules/utils/merge-instructions.scm
@@ -1,4 +1,4 @@
-(define-module (modules utils merge-instructions)
+(define-module (utils merge-instructions)
   #:use-module (srfi srfi-1)
   #:export (merge-instr))