练习 3.37

[Felix021]

37-cv.scm里的cv给忘了贴出来啦。。。

"""
(define (cv x)
(let ((c (make-connector)))
(constant x c)
c))
"""