1 files changed, 1 insertions(+), 2 deletions(-)

M secret-sharing/client.rkt

@@ 17,8 17,7 @@
     (bytes->integer bstr #f #t 0 num-bytes)))
 
 (define (random-poly degree constant)
-  (let ([coefficients (for/vector #:length degree ([_ (in-range degree)])
-                        (gen))])
+  (let ([coefficients (build-vector degree (λ (_) (gen)))])
     (lambda (x)
       (+ constant
          (for/sum ([i (in-range degree)])