summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThomas Hintz <t@thintz.com>2014-10-18 09:54:20 -0700
committerThomas Hintz <t@thintz.com>2014-10-18 09:54:20 -0700
commitb6fae3ef783de83579bf557acfdf9d6f5e236a60 (patch)
treeb454c081743b8324d999f04ab9cddd42acbe03ef
parent4bb341913fa21b6b994bac41ba56fe214103f461 (diff)
downloadwebsockets-b6fae3ef783de83579bf557acfdf9d6f5e236a60.tar.gz
Removing unused code and irrelevant or finished TODOs.
-rw-r--r--websockets.scm12
1 files changed, 0 insertions, 12 deletions
diff --git a/websockets.scm b/websockets.scm
index 119a3b6..f6724b2 100644
--- a/websockets.scm
+++ b/websockets.scm
@@ -107,17 +107,6 @@
(fin fragment-last?)
(optype fragment-optype))
-(define (string->bytes str)
- (let* ((lst (map char->integer (string->list str)))
- (bv (make-u8vector (length lst))))
- (let loop ((lst lst)
- (pos 0))
- (if (null? lst) bv
- (begin
- (u8vector-set! bv pos (car lst))
- (loop (cdr lst) (+ pos 1)))))))
-
-
(define (hex-string->string hexstr)
;; convert a string like "a745ff12" to a string
(let ((result (make-string (/ (string-length hexstr) 2))))
@@ -455,7 +444,6 @@
(process-fragments fragments optype)))))
; TODO does #!optional and #!key work together?
-; TODO document websocket state close states
(define (close-websocket #!optional (ws (current-websocket))
#!key (close-reason 'normal) (data (make-u8vector 0)))
(define invalid-close-reason #f)