scheme-test-programs/lists/make-list.scm

(define (make-list len obj)
  (if (= len 0)
      '()
      (cons obj (make-list (- len 1) obj))))