From 31bc7e046b06b398937cb14d0060296bd795a471 Mon Sep 17 00:00:00 2001 From: David Florness Date: Tue, 17 Mar 2020 23:26:26 -0600 Subject: [PATCH] Tidying --- merkle.rkt | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/merkle.rkt b/merkle.rkt index 2eb2330..2d7f10c 100644 --- a/merkle.rkt +++ b/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 -- 2.38.4