From 93f7e6dc97aac29b7a1b760ccbf883ce7cc0fe69 Mon Sep 17 00:00:00 2001
From: David Florness <david@florness.com>
Date: Mon, 20 Jan 2020 13:54:28 -0700
Subject: [PATCH] Delete thinking-out-loud comments

---
 secret-sharing/client.rkt | 58 ---------------------------------------
 1 file changed, 58 deletions(-)

diff --git a/secret-sharing/client.rkt b/secret-sharing/client.rkt
index ee186f4..31ffdd5 100644
--- a/secret-sharing/client.rkt
+++ b/secret-sharing/client.rkt
@@ -14,12 +14,6 @@
 
 (define (gen)
   (let* ([bstr (crypto-random-bytes num-bytes)])
-    ;; (displayln (format "bstr: ~a" (bytes->hex-string bstr)))
-    ;; (displayln (format "binaryio: ~a" (bytes->integer bstr #f #t)))
-    ;; (for/sum ([i (in-range 0 num-bytes 8)])
-    ;;   (arithmetic-shift
-    ;;    (integer-bytes->integer bstr #f #t i (+ i 8))
-    ;;    (- 1024 64 (* i 8))))
     (bytes->integer bstr #f #t 0 num-bytes)))
 
 (define (random-poly degree constant)
@@ -49,37 +43,6 @@
                                         (integer->bytes point num-bytes #f #t))
                                 'name username))))
 
-;; (define-values (status headers port))
-;; (http-sendrecv
-;;  "localhost"
-;;  "/register"
-;;  #:port 1984
-;;  #:method "POST"
-;;  #:data
-;;  (jsexpr->bytes (hasheq 'input (bytes->hex-string
-;;                                 (integer->bytes point num-bytes #f #t))
-;;                         'name username))
-;;  ;; #:headers (list "Content-Type: application/x-www-form-urlencoded")
-;;  )
-
-;; (let-values)
-;; (define-values (status headers port)
-;;   (with-handlers ([exn:fail:network? (lambda (exn)
-;;                                        (begin
-;;                                          (displayln "Err: lost connection to bulletin")
-;;                                          (exit)))])
-;;     (let loop ([wait 0])
-;;       (displayln "attempting to retrieve peers")
-;;       (sleep wait)
-;;       (let-values ([(status headers port)
-;;                     (http-sendrecv
-;;                      "localhost"
-;;                      "/peers"
-;;                      #:port 1984)])
-;;         (if (eq? status 200)
-;;             (values status headers port)
-;;             (loop 3))))))
-
 (define peers
   (json-response-body
    (let loop ([wait 0])
@@ -120,24 +83,3 @@
                      output
                      (add1 (integer-bytes-length output #f))
                      #t)))))))
-
-;; (define peers
-;;   (let loop ([wait 0])
-;;     (sleep wait)
-;;     (let ([resp (get bulletin "/peers")])
-;;       (displayln "attempting to retrieve peers...")
-;;       (displayln (get-status-code resp))
-;;       ;; (if (eq? (get-status-code resp) 200)
-;;       ;;     (json-response-body resp)
-;;       ;;     (loop 3))
-;;       )))
-
-;; (displayln (format "peers: ~a" peers))
-
-;; (displayln status)
-;; (displayln headers)
-;; (displayln (port->string port #:close? #t))
-
-;; (http-sendrecv
-;;  "localhost"
-;;  "/peers")
-- 
2.38.4