blob: ac060f7edf6d46325e25e0cec257b81925703818 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
(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))))
(define (tacky->assembly n)
(eval n (resolve-module '(backend generator expansion))))
|
