c/letstar.ss
#lang scheme/base
(require "cplt.ss"
         (planet dherman/c:3:2))
         

;; Simple `let*' code generator.

;; Produce C code fragments in serialized dataflow form (SSA).  At
;; this point, all variable names will be translated directly to C
;; form.

(define (let*->c stx [T "float"])
  (syntax-case stx ()
    ((_ ((name expr) ...) return-expr)
     (make-stmt:block
      (for/list ((n (syntax->datum #'name))
                 (e (syntax->datum #'expr)))
        (make-