2 files changed, 0 insertions, 22 deletions
diff --git a/src/modules/utils/assign-stack.scm b/src/modules/utils/assign-stack.scm
deleted file mode 100644
index 1096846..0000000
--- a/src/modules/utils/assign-stack.scm
+++ /dev/null
@@ -1,15 +0,0 @@
-(define-module (utils assign-stack)
-  #:export (make-location
-            get-frame-size))
-
-
-(define make-location)
-(define get-frame-size)
-(let ((dict (make-hash-table))
-      (ptr 0))
-  (set! make-location
-        (lambda (id)
-          (or (hash-ref dict id)
-              (begin (set! ptr (1+ ptr))
-                     (hash-set! dict id (get-frame-size))))))
-  (set! get-frame-size (lambda () (* -4 ptr))))
diff --git a/src/modules/utils/merge-instructions.scm b/src/modules/utils/merge-instructions.scm
deleted file mode 100644
index 754117c..0000000
--- a/src/modules/utils/merge-instructions.scm
+++ /dev/null
@@ -1,7 +0,0 @@
-(define-module (utils merge-instructions)
-  #:use-module (srfi srfi-1)
-  #:export (merge-instr))
-
-
-(define (merge-instr lst)
-  (append-map (lambda (x) (if (list? (car x)) x (list x))) lst))