urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-18 07:42:20 +03:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Quodss 2023-06-12 19:24:39 +02:00 committed by GitHub
parent 46ec863734
commit be0e8c0a50
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkg/arvo/sys/hoon.hoon
View File

@ -1905,17 +1905,17 @@
++ corl :: compose backwards ++ corl :: compose backwards
|* [a=$-(* *) b=$-(* *)] |* [a=$-(* *) b=$-(* *)]
=< +:|.((a (b))) :: type check =< +:|.((a (b))) :: type check
|* c=_+<.b |* c=_,.+<.b
(a (b c)) (a (b c))
:: ::
++ cury :: curry left ++ cury :: curry left
|* [a=$-(^ *) b=*] |* [a=$-(^ *) b=*]
|* c=_+<+.a |* c=_,.+<+.a
(a b c) (a b c)
:: ::
++ curr :: curry right ++ curr :: curry right
|* [a=$-(^ *) c=*] |* [a=$-(^ *) c=*]
|* b=_+<-.a |* b=_,.+<-.a
(a b c) (a b c)
:: ::
++ fore |*(a=$-(* *) |*(b=$-(* *) (pair a b))) :: pair before ++ fore |*(a=$-(* *) |*(b=$-(* *) (pair a b))) :: pair before