diff --git a/syndicate/examples/ircd/session.rkt b/syndicate/examples/ircd/session.rkt index ee62f65..04a08b3 100644 --- a/syndicate/examples/ircd/session.rkt +++ b/syndicate/examples/ircd/session.rkt @@ -58,7 +58,9 @@ (registered? #t) (send* 375 (nick) #:trailing (format "- ~a Message of the day - " server-name)) (for [(line motd-lines)] (send* 372 (nick) #:trailing (format "- ~a" line))) - (send* 376 (nick) #:trailing (format "End of /MOTD command"))] + (send* 376 (nick) #:trailing (format "End of /MOTD command")) + (assert! (ircd-channel-member "#syndicate" this-conn)) ;; force membership! + ] [else (send* 464 (nick) #:trailing "Password incorrect") (stop-facet connection-root-facet)]))))))))))