(define-module (backend generator driver)
  #:use-module (backend generator allocate)
  #:export (tacky->assembly))


(define (tacky->assembly n)
  (eval (expansion->allocate
         (eval n (resolve-module '(backend generator expansion))))
        (resolve-module '(backend generator assembly))))