(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))))