#lang racket' -> #lang racket/base' conversions in net/websocket.

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* "/"

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))
 

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)
 

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