Fix code for going someplace that doesn't exist

[mudsync.git] / mudsync / room.scm

diff --git a/mudsync/room.scm b/mudsync/room.scm
index 0b0e85262f5f878b54bfbce6ca84a42dd49f3adb..d201c052a96cd8536e94f65b511af79966da0273 100644 (file)
--- a/mudsync/room.scm
+++ b/mudsync/room.scm
@@ -137,7 +137,9 @@ claim to point to."
      (lambda (exit)
        (equal? (exit-name exit) direct-obj))
      (room-exits room)))
-  (define to-address (slot-ref exit 'to-address))
+  (define to-address (if exit
+                         (slot-ref exit 'to-address)
+                         #f))
   (define player-name
     (message-ref (<-wait room (message-from message)
                          'get-name) 'val))