chickadee » list-of » fold-of

The underlying primitive used to implement list-of:

(define-syntax list-of
  (syntax-rules () 
    ((_ arg ...)
     (reverse (fold-of (lambda (d a) (cons a d)) '() arg ...)))))