;; if h is greater than 0.0
;; the continue to play last
;; held sample
(bind-func static hold3_c
(lambda ()
(let ((mem 0.0))
(lambda (in:SAMPLE h:SAMPLE)
(if (> h 0.0)
mem
(begin (set! mem in)
in))))))