Places delegate to Named-Object |
(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 |