Throw away map

[sorawee]

(begin 
  (map f xs)
  (something-else))

should be converted to:

(begin 
  (for-each f xs)
  (something-else))

(begin is just an example -- the middle of an internal definition context should count too)