hoon: make +pin total over non-zero atoms

This commit is contained in:
Edward Amsden 2023-05-16 19:32:09 -05:00
parent a19a41198a
commit 5606bb32f1

View File

@ -235,8 +235,9 @@
?< =(0 a)
?< =(0 b)
|- ^- ?
?: =(a 1) %&
?. =((cap a) (cap b)) %|
?: =(a 1) &
?: =(b 1) |
?. =((cap a) (cap b)) |
$(a (mas a), b (mas b))
::
++ hub