-;; ;; Doesn't inherit anything (gameobj has no contained-commands)
-;; ;; so it's an alias.
-;; (define thing-contained-commands* thing-contained-commands)
-
-(define thing-actions
- (build-actions
- (cmd-take (wrap-apply thing-cmd-take))
- (cmd-drop (wrap-apply thing-cmd-drop))))
-
-(define thing-actions*
- (append thing-actions
- gameobj-actions))
-
-(define thing-dispatcher
- (simple-dispatcher thing-actions*))
+;; Doesn't inherit anything (gameobj has no contained-commands)
+;; so it's an alias.
+(define thing-contained-commands* thing-contained-commands)