strip faces of subjects in ++curr, ++cury, ++corl

2024-12-17 23:32:56 +03:00 · 2023-06-12 19:24:39 +02:00 · 2023-06-12 19:24:39 +02:00 · be0e8c0a50
commit be0e8c0a50
parent 46ec863734
1 changed files with 3 additions and 3 deletions
--- a/pkg/arvo/sys/hoon.hoon
+++ b/pkg/arvo/sys/hoon.hoon
@ -1905,17 +1905,17 @@
 ++  corl                                                ::  compose backwards
  |*  [a=$-(* *) b=$-(* *)]
  =<  +:|.((a (b)))      ::  type check
-  |*  c=_+<.b
+  |*  c=_,.+<.b
  (a (b c))
 ::
 ++  cury                                                ::  curry left
  |*  [a=$-(^ *) b=*]
-  |*  c=_+<+.a
+  |*  c=_,.+<+.a
  (a b c)
 ::
 ++  curr                                                ::  curry right
  |*  [a=$-(^ *) c=*]
-  |*  b=_+<-.a
+  |*  b=_,.+<-.a
  (a b c)
 ::
 ++  fore  |*(a=$-(* *) |*(b=$-(* *) (pair a b)))        ::  pair before