Places delegate to Named-Object

left top

(define (make-place name)
  (let ((neighbor-map '())           ; Alist, direction -> object
        (things       '())
        (named-obj (make-named-object name)))
   (lambda (message)
     (case message
       ((PLACE?) (lambda (self) #T))
       ...
       (else (get-method message named-obj)))))))

Jim Miller W3C