;;;
;;; Name: ___________________________________________________
;;;
;;; ps6.ss
;;; UVA CS150 Fall 2005
;;; Problem Set 6
;;;


(load "listprocs.ss")
(load "objects.ss")
(load "adventure.ss")

;;;
;;; Set up the world every time we load
;;; (you may want to comment this out when you are debugging)
;;;

(set-up-charlottansville)

;;;
;;; Question 1:
;;;

;;;
;;; Question 2:
;;;

;;;
;;; Question 3:
;;;

;;; This is the make-object code from object.ss you will need
;;; to modify:
;;;

(define make-object 
  (lambda (name)
    (lambda (message)
      (if (eq? message 'object?)
	  (lambda (self) #t)
	  (if (eq? message 'class)
	      (lambda (self) 'object)
	      (if (eq? message 'name)
		  (lambda (self) name)
		  (if (eq? message 'say)
		      (lambda (self list-of-stuff)
			(if (not (null? list-of-stuff))
			    (display-message list-of-stuff))
			'nuf-said)
		      (if (eq? message 'install)
			  (lambda (self . args) 'installed)
			  #f))))))))

;;;
;;; Question 4:
;;;

;;;
;;; Question 5:
;;;

;;;
;;; Question 6:
;;;

;;;
;;; Question 7:
;;;

;;;
;;; Question 8:
;;;