 
 (def rug (item/make "rug" "An ornate long rug."))
 
-(defn make-door [extra-name goes-to]
-   (item/make ["door" extra-name]
+(defn make-door [extra-names goes-to]
+   (item/make (apply conj ["door"] extra-names)
       "A wooden door."
       :closed true
       :enter goes-to))

                             :initial-description "The rug that traversed the room wasn't enough to silence the creak of the floor, as if the house denounced my irruption."
                             :known true)
                  (room/add-item fake-door "")
                  (room/add-item (make-door "east door" :tapestry) "")
                  (room/add-item corridor "")
                  (room/add-item paintings "")
                  (room/add-item floor "")

                  (room/add-item paintings "")
                  (room/add-item floor "")
                  (room/add-item rug "")
                  (room/add-item (make-door ["west door" "w door"] :library) "")
                  (room/add-item (make-door ["east door" "e door"] :dining) "")
                  (room/add-item oak-door-back "")))

(def top-drawer (item/make ["drawer" "top drawer"]
