1 files changed, 9 insertions, 0 deletions
diff --git a/src/modules/generator/driver.scm b/src/modules/generator/driver.scm
new file mode 100644
index 0000000..dc95268
--- /dev/null
+++ b/src/modules/generator/driver.scm
@@ -0,0 +1,9 @@
+(define-module (modules generator driver)
+  #:use-module (modules generator allocate)
+  #:export (tacky->assembly))
+
+
+(define (tacky->assembly n)
+  (eval (expansion->allocate
+         (eval n (resolve-module '(modules generator expansion))))
+        (resolve-module '(modules generator assembly))))