From 9b2ad6358bcb4a336cb53fdb469df8c115eddef3 Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <cgyarvin@gmail.com>
Date: Tue, 7 Apr 2015 16:15:25 -0700
Subject: [PATCH] Entropy check and entropy hash.

---
 main/dog/helm/begin/gate.hook | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/main/dog/helm/begin/gate.hook b/main/dog/helm/begin/gate.hook
index 7a7a4a202e..e38102135d 100644
--- a/main/dog/helm/begin/gate.hook
+++ b/main/dog/helm/begin/gate.hook
@@ -25,10 +25,12 @@
   [%& %helm-entropy "some entropy: "]
 %+  sole-go  (boss 256 (more gon qit))
 |=  yen=@t
+=+  ney=(shax yen)
+%+  sole-yo  `tank`[%leaf "entropy check: {(scow %p `@p`(mug ney))}"]
 %+  sole-so  %helm-begin
 :*  his
     tic
-    yen
+    ney
 ::
     ^-  gens
     :-  %en