chickadee » tuples » tuple-for-each

tuple-for-each proc tup #!rest tupsprocedure

command ((old new (lambda (proc tup . tups) #t)))

(tuple-for-each proc tup . tups)

requires (and (procedure? proc)
              (%tuple tup)
              ((list-of? %tuple?) tups)
              (apply = (%tuple-length tup) (map %tuple-length tups)))

ensures  "proc applied to each item"