Merge pull request #1177 from urbit/fix-ho-mold-bunts

fix higher-order mold parameter-bunts

sys/hoon.hoon

@@ -321,7 +321,7 @@
   ::  input if it fits or a default value if it doesn't.
   ::
   ::  examples: * @ud ,[p=time q=?(%a %b)]
-  _|~(* +<)
+  $~(* $-(* *))
 ::
 +*  pair  [head tail]
   ::    dual tuple
@@ -16731,21 +16731,19 @@
         %+  cook
           |=  [b=term c=(list term) e=spec]
           ^-  [term hoon]
-          :*  b
+          :-  b
-              :+  %brtr
+          :+  %brtr
-                :-  %bscl
+            :-  %bscl
-                =-  ?>(?=(^ -) -)
+            =-  ?>(?=(^ -) -)
-                %+  turn  c
+            ::  for each .term in .c, produce $=(term $~(* $-(* *)))
-                |=  =term
+            ::  ie {term}=mold
-                ^-  spec
+            ::
-                :+  %bsts
+            %+  turn  c
-                  term
+            |=  =term
-                [%bshp [%base %noun] [%base %noun]]
+            ^-  spec
-              :-  %ktcl
+            =/  tar  [%base %noun]
-              :+  %made
+            [%bsts term [%bssg tar [%bshp tar tar]]]
-                [b c]
+          [%ktcl [%made [b c] e]]
-              e
-          ==
         ;~  pfix  (jest '+*')
           ;~  plug
             ;~(pfix gap sym)