#!r6rs
(library (rsc3 graphdef letc)
(export letc)
(import (rnrs)
	(only (rsc3 graphdef control) make-control*)
	(only (rsc3 graphdef rate) kr))

;; Syntax for defining <control*> values.  Does not implement rate or
;; lag variants.  See deleted file control-set.scm for details.

(define-syntax letc
  (syntax-rules ()
    ((_ () expr)
     expr)
    ((_ ((name default) ...) expr)
     (let ((name (make-control* (symbol->string (quote name)) default kr 0))
	   ...)
       expr))))

)