Factor out object system in objects.rkt.