(define-module (modules generator generator)
  #:use-module (srfi srfi-9 gnu)
  #:use-module (modules ast syntax-tree)
  #:use-module (modules ast assembly-tree)
  #:export (g-program))


(define (g-program p)
  (g-subroutine (program-function p)))

(define (g-subroutine s)
  (g-instructions (subroutine-instructions s)))

(define (g-instructions lst)
  (define (g-instruction i)
    (set-instruction-destination i "foo"))
  (unless (null? lst)
    (begin (g-instruction (car lst))
           (g-instructions (cdr lst)))))