- (slot-set! gameobj 'loc loc)
- ;; Change registation of where we currently are
- (if loc
- (<-wait gameobj loc 'add-occupant! #:who (actor-id gameobj)))
- (if old-loc
- (<-wait gameobj old-loc 'remove-occupant! #:who (actor-id gameobj))))
+ (when (not (equal? old-loc loc))
+ (slot-set! gameobj 'loc loc)
+ ;; Change registation of where we currently are
+ (if old-loc
+ (<-wait gameobj old-loc 'remove-occupant! #:who (actor-id gameobj)))
+ (if loc
+ (<-wait gameobj loc 'add-occupant! #:who (actor-id gameobj)))))