fix ++curr

Fixes sample of a wet gate produced by ++curr
This commit is contained in:
Quodss 2023-06-12 11:19:27 +02:00 committed by GitHub
parent c0cb7d810a
commit 46ec863734
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -1915,7 +1915,7 @@
::
++ curr :: curry right
|* [a=$-(^ *) c=*]
|* b=_+<+.a
|* b=_+<-.a
(a b c)
::
++ fore |*(a=$-(* *) |*(b=$-(* *) (pair a b))) :: pair before