Releasing version 0.1.6.

Tag release 0.1.5.

websockets.release-info

@@ -8,3 +8,5 @@
 (release "0.1.2")
 (release "0.1.3")
 (release "0.1.4")
+(release "0.1.5")
+(release "0.1.6")

websockets.scm

@@ -8,7 +8,7 @@
 
    ; high level API
    with-websocket with-concurrent-websocket
-   send-message receive-message
+   send-message receive-message current-websocket
 
    ; low level API
    ;; send-frame read-frame read-frame-payload
@@ -166,7 +166,7 @@
      outbound-port)
 
     (write-string data len outbound-port)
-   (flush-output (response-port (current-response)))
+    (flush-output outbound-port)
     #t))
 
 (define (send-message data #!optional (optype 'text) (ws (current-websocket)))

websockets.setup

@@ -6,4 +6,4 @@
 
 (install-extension 'websockets
                    '("websockets.so" "websockets.import.so")
-                   `((version "0.1.4")))
+                   `((version "0.1.6")))