Trying to get (car) working with (apply)

This is going to necessitate resolving issues across both map.scm and tests/apply.scm.