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

M merkle.rkt

@@ 20,14 20,13 @@
                           (let ([bstr (vector-ref content (min i (sub1 n)))])
                             (merkle-node #f (sha256 bstr)))))])
     (let build-level : merkle-tree
-         ([nodes : (Vectorof merkle-node)
-                 leaves])
+         ([nodes : (Vectorof merkle-node) leaves])
          (let ([n (vector-length nodes)])
            (if (> n 1)
                (build-level
                 (for/vector : (Vectorof merkle-node)
                     ([left (in-vector nodes 0 n 2)]
-                             [right (in-vector nodes 1 n 2)])
+                     [right (in-vector nodes 1 n 2)])
                   (let ([new-node
                          (merkle-node
                           #f