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
             :-  %bscl
             =-  ?>(?=(^ -) -)
+            ::  for each .term in .c, produce $=(term $~(* $-(* *)))
+            ::  ie {term}=mold
+            ::
             %+  turn  c
             |=  =term
             ^-  spec
-                :+  %bsts
-                  term
-                [%bshp [%base %noun] [%base %noun]]
-              :-  %ktcl
-              :+  %made
-                [b c]
-              e
-          ==
+            =/  tar  [%base %noun]
+            [%bsts term [%bssg tar [%bshp tar tar]]]
+          [%ktcl [%made [b c] e]]
         ;~  pfix  (jest '+*')
           ;~  plug
             ;~(pfix gap sym)