From b1438317aab0043d2523f946fd884c8b87176c01 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 2 Jun 2013 16:45:25 -0400 Subject: [PATCH] Untabify --- marketplace/examples/chat-paper-extrasugar.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/marketplace/examples/chat-paper-extrasugar.rkt b/marketplace/examples/chat-paper-extrasugar.rkt index 70e43c9..de73c4e 100644 --- a/marketplace/examples/chat-paper-extrasugar.rkt +++ b/marketplace/examples/chat-paper-extrasugar.rkt @@ -24,7 +24,7 @@ (on-absence (quit)) (on-message [(tcp-channel _ _ (? bytes? text)) - (send-message `(,user says ,text))]))))) + (send-message `(,user says ,text))]))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (speak-to-user user them us) @@ -44,4 +44,4 @@ (on-presence (announce who 'arrived)) (on-absence (announce who 'departed)) (on-message [`(,who says ,what) - (say "~a: ~a" who what)]))))) + (say "~a: ~a" who what)])))))