Pulled out list-eq? so that it can be used in other files.
no message