Permalink
Switch branches/tags
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
17 lines (12 sloc) 247 Bytes
#lang scheme/base
;; record computations
(require "record.scm"
"util.scm")
(provide
sum-recs
)
(define (sum-recs recs prop-to-sum)
(foldl (lambda (rec acc)
(+ acc (rec-prop rec prop-to-sum)))
0
recs))