4 files changed, 0 insertions, 66 deletions
diff --git a/src/modules/generator/allocate.scm b/src/modules/generator/allocate.scm
deleted file mode 100644
index f975fca..0000000
--- a/src/modules/generator/allocate.scm
+++ /dev/null
@@ -1,16 +0,0 @@
-(define-module (generator allocate)
-  #:use-module (utils assign-stack)
-  #:export (expansion->allocate))
-
-
-(define (expansion->allocate ast)
-  (define (allocate n)
-    (cond
-     ((null? n) n)
-     ((eq? (car n) 'tmp)
-      (list 'stack (make-location (cadr n))))
-     ((list? (car n))
-      (cons (allocate (car n)) (allocate (cdr n))))
-     (#t
-      (cons (car n) (allocate (cdr n))))))
-  (allocate ast))
diff --git a/src/modules/generator/assembly.scm b/src/modules/generator/assembly.scm
deleted file mode 100644
index 55eaaed..0000000
--- a/src/modules/generator/assembly.scm
+++ /dev/null
@@ -1,18 +0,0 @@
-(define-module (generator assembly)
-  #:use-module (ast ir)
-  #:use-module (utils assign-stack)
-  #:use-module (utils merge-instructions)
-  #:export (instrs
-            mov))
-
-
-(define (instrs lst)
-  (cons 'list (cons (list 'alloc (abs (get-frame-size)))
-                    (merge-instr lst))))
-
-(define (mov src dst)
-  (if (and (eq? 'stack (car dst))
-           (eq? 'stack (car 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
deleted file mode 100644
index 8b9ed30..0000000
--- a/src/modules/generator/driver.scm
+++ /dev/null
@@ -1,9 +0,0 @@
-(define-module (generator driver)
-  #:use-module (generator allocate)
-  #:export (tacky->assembly))
-
-
-(define (tacky->assembly n)
-  (eval (expansion->allocate
-         (eval n (resolve-module '(generator expansion))))
-        (resolve-module '(generator assembly))))
diff --git a/src/modules/generator/expansion.scm b/src/modules/generator/expansion.scm
deleted file mode 100644
index 5bfa878..0000000
--- a/src/modules/generator/expansion.scm
+++ /dev/null
@@ -1,23 +0,0 @@
-(define-module (generator expansion)
-  #:use-module (ast ir)
-  #:use-module (utils merge-instructions)
-  #:export (instrs
-            not
-            neg
-            ret))
-
-
-(define (instrs lst)
-  #f
-  (list 'instrs (cons 'list (merge-instr lst))))
-
-(define (not src dst) (unary 'not src dst))
-(define (neg src dst) (unary 'neg src dst))
-
-(define (ret src)
-  (list (list 'mov src (list 'reg "eax"))
-        (list 'ret)))
-
-(define (unary op src dst)
-  (list (list 'mov src dst)
-        (list op dst)))