our magnificent rear end

back-end.rkt

#lang racket

;; this file implements the awesome back end of the compiler

(provide serialize)


;; given an intermediate representation, serialize it to a file
(define (serialize ir)
  (call-with-output-file "/tmp/zz.txt"
    (λ (port)
      (for ([stmt (in-list ir)])
        (displayln stmt port)))))