Fix code for going someplace that doesn't exist
authorChristopher Allan Webber <cwebber@dustycloud.org>
Fri, 6 May 2016 20:50:25 +0000 (15:50 -0500)
committerChristopher Allan Webber <cwebber@dustycloud.org>
Fri, 6 May 2016 20:50:25 +0000 (15:50 -0500)
mudsync/room.scm

index 0b0e85262f5f878b54bfbce6ca84a42dd49f3adb..d201c052a96cd8536e94f65b511af79966da0273 100644 (file)
@@ -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))