From 43b6ac4e8ceff7aad909294b1b00ebdd6a38ec15 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Fri, 6 May 2016 15:50:25 -0500 Subject: [PATCH] Fix code for going someplace that doesn't exist --- mudsync/room.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)) -- 2.31.1