From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Fri, 6 May 2016 20:50:25 +0000 (-0500)
Subject: Fix code for going someplace that doesn't exist
X-Git-Tag: fosdem-2017~159
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=43b6ac4e8ceff7aad909294b1b00ebdd6a38ec15;p=mudsync.git

Fix code for going someplace that doesn't exist
---

diff --git a/mudsync/room.scm b/mudsync/room.scm
index 0b0e852..d201c05 100644
--- 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))