(define (diff-sum x E)
(make-sum
(map (lambda (expr) (d x expr))
(args E) )))
diff-sumを適用する
(diff-sum 'v '(+ u v w))