From b6fae3ef783de83579bf557acfdf9d6f5e236a60 Mon Sep 17 00:00:00 2001 From: Thomas Hintz Date: Sat, 18 Oct 2014 09:54:20 -0700 Subject: [PATCH] Removing unused code and irrelevant or finished TODOs. --- websockets.scm | 12 ------------ 1 file changed, 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)