X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fgame-master.scm;h=3583f95662cc68a25abb72f8ddeaa4d82f689d9b;hp=0daebc978a5bc7e8b705cad79c9fe0b171b22dd2;hb=8a2341e98f75a5df295f49c08485eb6339dda19e;hpb=a91cab366a655c3162fb516b7b1242d60f0e2d2a diff --git a/mudsync/game-master.scm b/mudsync/game-master.scm index 0daebc9..3583f95 100644 --- a/mudsync/game-master.scm +++ b/mudsync/game-master.scm @@ -85,7 +85,7 @@ "Take room exits syntax from the spec, turn it into exits" (match exit-spec ((name to-symbol desc) - (make + (make (@@ (mudsync room) ) #:name name #:to-symbol to-symbol #:desc desc)))) @@ -146,12 +146,7 @@ (format #t "DEBUG: From ~s: ~s\n" client-id input) (<- actor player 'handle-input - #:input input) - - ;; TODO: Remove this shortly - (<- actor (gm-network-manager actor) 'send-to-client - #:client client-id - #:data "Thanks, we got it!\n")) + #:input input)) (define-mhandler (gm-lookup-room actor message symbol) (define room-id