From 586b3234304ec5daa3e6bc56bd105024ed9315a5 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Tue, 6 Nov 2012 15:27:39 -0500
Subject: [PATCH] `#lang racket' -> `#lang racket/base' conversions in
 net/websocket.

---
 collects/net/websocket/client.rkt    | 30 ++++++++++++++++------------
 collects/net/websocket/conn.rkt      |  7 +++++--
 collects/net/websocket/handshake.rkt |  7 +++++--
 collects/net/websocket/server.rkt    | 10 +++++++---
 4 files changed, 34 insertions(+), 20 deletions(-)

diff --git a/collects/net/websocket/client.rkt b/collects/net/websocket/client.rkt
index 8df8708561..aef067f47a 100644
--- a/collects/net/websocket/client.rkt
+++ b/collects/net/websocket/client.rkt
@@ -1,5 +1,10 @@
-#lang racket
-(require net/url
+#lang racket/base
+
+(require racket/list
+         racket/port
+         racket/contract
+         racket/tcp
+         net/url
          web-server/http/response
          web-server/http/request
          web-server/http/request-structs
@@ -32,17 +37,16 @@
   (define the-path
     (if (empty? upath)
         "/"
-        (local 
-          [(define pre-path
-             (add-between 
-              (map (λ (pp)
-                     (define p (path/param-path pp))
-                     (case p
-                       [(up) ".."]
-                       [(same) "."]
-                       [else p]))
-                   upath)
-              "/"))]
+        (let ([pre-path
+               (add-between
+                (map (λ (pp)
+                       (define p (path/param-path pp))
+                       (case p
+                         [(up) ".."]
+                         [(same) "."]
+                         [else p]))
+                     upath)
+                "/")])
           (apply string-append
                  (if (url-path-absolute? url)
                      (list* "/"
diff --git a/collects/net/websocket/conn.rkt b/collects/net/websocket/conn.rkt
index 46606fcd16..aeaad3a462 100644
--- a/collects/net/websocket/conn.rkt
+++ b/collects/net/websocket/conn.rkt
@@ -1,5 +1,8 @@
-#lang racket
-(require web-server/http/request-structs)
+#lang racket/base
+
+(require racket/match
+         racket/contract
+         web-server/http/request-structs)
 
 (define framing-mode (make-parameter 'old))
 
diff --git a/collects/net/websocket/handshake.rkt b/collects/net/websocket/handshake.rkt
index ffd7f461ac..e05b05d9bb 100644
--- a/collects/net/websocket/handshake.rkt
+++ b/collects/net/websocket/handshake.rkt
@@ -1,5 +1,8 @@
-#lang racket
-(require file/md5)
+#lang racket/base
+
+(require racket/list
+         racket/contract
+         file/md5)
 
 (define RANGE 100000)
 
diff --git a/collects/net/websocket/server.rkt b/collects/net/websocket/server.rkt
index 76d253802f..e74db8406a 100644
--- a/collects/net/websocket/server.rkt
+++ b/collects/net/websocket/server.rkt
@@ -1,12 +1,16 @@
-#lang racket
-(require web-server/private/dispatch-server-unit
+#lang racket/base
+
+(require racket/list
+         racket/unit
+         racket/contract
+         unstable/contract
+         web-server/private/dispatch-server-unit
          web-server/private/dispatch-server-sig
          web-server/private/connection-manager
          web-server/http/response
          web-server/http/request
          web-server/http/request-structs
          racket/async-channel
-         unstable/contract
          net/tcp-sig
          (prefix-in raw: net/tcp-unit)
          net/websocket/conn