2 files changed, 0 insertions, 49 deletions
diff --git a/src/modules/tacky/driver.scm b/src/modules/tacky/driver.scm
deleted file mode 100644
index 9696306..0000000
--- a/src/modules/tacky/driver.scm
+++ /dev/null
@@ -1,6 +0,0 @@
-(define-module (tacky driver)
-  #:export (ast->tacky))
-
-
-(define (ast->tacky n)
-  (eval n (resolve-module '(tacky traverse))))
diff --git a/src/modules/tacky/traverse.scm b/src/modules/tacky/traverse.scm
deleted file mode 100644
index 2fd4ca7..0000000
--- a/src/modules/tacky/traverse.scm
+++ /dev/null
@@ -1,43 +0,0 @@
-(define-module (tacky traverse)
-  #:use-module (ast ir)
-  #:export (prog
-            func
-            stmt
-            unary
-            const))
-
-
-(define (prog srout)
-  (list 'prog srout))
-
-(define (func name instrs)
-  (list 'srout name instrs))
-
-(define (stmt val)
-  (list 'instrs
-        (cons 'list (append (cdr val)
-                            (list (list 'ret (car val)))))))
-
-(define (expr op val)
-  (make-instruction op (car val) (cdr val)))
-
-(define (const val)
-  (cons (imm val) '()))
-
-(define (make-instruction op src instrs)
-  (let ((dst (make-temporary)))
-    (cons dst
-          (append instrs
-                  (list (op src dst))))))
-
-(define make-temporary
-  (let ((count 100))
-    (lambda ()
-      (set! count (1+ count))
-      (list 'tmp count))))
-
-(define (neg src dst)
-  (list 'neg src dst))
-
-(define (not src dst)
-  (list 'not src dst))