(constant-list value length)
Return a list containing length elements, each of value.
David Carlisle
(define (constant-list value length) ;; Returns a list of the specified value (let loop ((count (abs length)) (result '())) (if (equal? count 0) result (loop (- count 1) (cons value result)))))