+(define always (const #t))
+
+(define %room-contain-commands
+ (list
+ (command "look" cmatch-just-verb always 'look-room)
+ (command "look" cmatch-direct-obj always 'look-member)
+ (command "go" cmathc-just-verb always 'go-where)
+ (command "go" cmatch-direct-obj always 'go-exit)))
+
+