auto: gain and lose types on ?:

This commit is contained in:
Philip Monk 2019-11-01 18:02:20 -07:00
parent ce6efe0a6a
commit ec3ab084c7
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC

View File

@ -182,7 +182,9 @@
::
++ bell
|= [a=hoon b=hoon c=hoon]
(replace loop(gen a) |.((replace loop(gen b) |.(loop(gen c)))))
%+ replace loop(gen a)
|. %+ replace loop(gen b, sut (~(gain ut sut) a))
|. loop(gen c, sut (~(lose ut sut) a))
::
++ spec-and-hoon
|= [a=spec b=hoon]