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