Subsets function in Scheme

Subsets computes all the possible subsets possible for a list of unique values.

(define (subsets L)
  (if (null? L)
      (list ())
      (extend (subsets (cdr L)) (car L))
      ))