Removing unused code and irrelevant or finished TODOs.
This commit is contained in:
parent
4bb341913f
commit
b6fae3ef78
|
@ -107,17 +107,6 @@
|
||||||
(fin fragment-last?)
|
(fin fragment-last?)
|
||||||
(optype fragment-optype))
|
(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)
|
(define (hex-string->string hexstr)
|
||||||
;; convert a string like "a745ff12" to a string
|
;; convert a string like "a745ff12" to a string
|
||||||
(let ((result (make-string (/ (string-length hexstr) 2))))
|
(let ((result (make-string (/ (string-length hexstr) 2))))
|
||||||
|
@ -455,7 +444,6 @@
|
||||||
(process-fragments fragments optype)))))
|
(process-fragments fragments optype)))))
|
||||||
|
|
||||||
; TODO does #!optional and #!key work together?
|
; TODO does #!optional and #!key work together?
|
||||||
; TODO document websocket state close states
|
|
||||||
(define (close-websocket #!optional (ws (current-websocket))
|
(define (close-websocket #!optional (ws (current-websocket))
|
||||||
#!key (close-reason 'normal) (data (make-u8vector 0)))
|
#!key (close-reason 'normal) (data (make-u8vector 0)))
|
||||||
(define invalid-close-reason #f)
|
(define invalid-close-reason #f)
|
||||||
|
|
Loading…
Reference in New Issue