src/modules/generator/driver.scm


1
2
3
4
5
6
7
8
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))))