ska spec: make degen.hoon less degenerate

docs/spec/ska/lib/degen.hoon

@@ -6,8 +6,8 @@
 =|  prog=tinn
 =|  buff=linn
 =|  bust=(list linn)
-=*  this  .
 |%
+++  this  .
 ++  inst
   |=  =dinn
   ^-  _this
@@ -28,7 +28,7 @@
   =|  vale=dast
   =<
   =^  moot  this
-    |^
+    |-
     ^-  [boot _this]
     ~|  'vale must not be 5 or a subaxis of 5'
     ?>  (hast vale)
@@ -323,6 +323,27 @@
       :_  this
       [%risk %gues ~]
     ==
+  :_  this(prog (~(put by prog) bloc [(flop buff) moot]), buff -.bust, bust +.bust)
+  moot
+  |%
+  ++  bomb
+    ^-  [boot _this]
+    =.  this  (inst [%bom ~])
+    :_  this
+    [%boom ~]
+  ++  bear
+    |=  weir=@
+    ^-  dabl
+    [sub.bloc for.bloc (peg faxe weir) 0]
+  ++  here
+    ^-  dabl
+    [sub.bloc for.bloc faxe 1]
+  ++  will
+    ^-  dabl
+    [sub.bloc for.bloc faxe 2]
+  ++  wont
+    ^-  dabl
+    [sub.bloc for.bloc faxe 3]
   :: hide away a subject for later (clobbers 4)
   ++  hide
     =.  this  (inst [%mov 3 4])
@@ -371,31 +392,4 @@
       %.n
     %.y
   --
-  (done moot)
-  |%
-  ++  done
-    |=  says=boot
-    ^-  [boot _this]
-    :-  says
-    ~|  'We pushed onto bust so it should be nonempty'  ?>  ?=  [* *]  bust
-    this(prog (~(put by prog) bloc [(flop buff) says]), buff -.bust, bust +.bust)
-  ++  bomb
-    ^-  [boot _this]
-    =.  buff  ~[[%bom ~]]
-    :_  this
-    [%boom ~]
-  ++  bear
-    |=  weir=@
-    ^-  dabl
-    [sub.bloc for.bloc (peg faxe weir) 0]
-  ++  here
-    ^-  dabl
-    [sub.bloc for.bloc faxe 1]
-  ++  will
-    ^-  dabl
-    [sub.bloc for.bloc faxe 2]
-  ++  wont
-    ^-  dabl
-    [sub.bloc for.bloc faxe 3]
-  --
 --