Add l as alias for look

diff --git a/mudsync/room.scm b/mudsync/room.scm
index 5c76977dac5106b35a4abd7cdf3ad5c9ebf56bbc..0379d3da71d268586f42c0d22c594b99e7ef04c2 100644 (file)
--- a/mudsync/room.scm
+++ b/mudsync/room.scm
@@ -71,7 +71,7 @@
    #:allocation #:each-subclass
    #:init-thunk
    (build-commands
    #:allocation #:each-subclass
    #:init-thunk
    (build-commands

-    ("look" ((loose-direct-command cmd-look-at)
+    (("l" "look") ((loose-direct-command cmd-look-at)

              (empty-command cmd-look-room)))
     ("go" ((empty-command cmd-go-where)
            (loose-direct-command cmd-go)))
              (empty-command cmd-look-room)))
     ("go" ((empty-command cmd-go-where)
            (loose-direct-command cmd-go)))