The definition of partial-sums is almost identical to that of factorial:
(define (partial-sums s) (if (stream-null? s) the-empty-stream (cons-stream (stream-car s) (add-streams (partial-sums s) (stream-cdr s)))))