From f28dd639e7c106a37d5a7e1a8e8c24bf87d8c7dd Mon Sep 17 00:00:00 2001 From: Max G Date: Mon, 13 Jul 2015 02:45:49 +0300 Subject: [PATCH] trivial --- arvo/hoon.hoon | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/arvo/hoon.hoon b/arvo/hoon.hoon index a6c9cc139..a179eb121 100644 --- a/arvo/hoon.hoon +++ b/arvo/hoon.hoon @@ -4367,9 +4367,9 @@ [~(d ne b) c] =+ ^= f =>(.(rex ~) (e a.a)) - =. e.a (sum:si e.a (sun:si +.f)) + =. e.a (sum:si e.a (sun:si (dec +.f))) =+ b=?:((syn:si e.a) "e" "e-") - => .(rex (weld b ((d-co 1) (abs:si e.a)))) + => .(rex ?~(e.a rex (weld b ((d-co 1) (abs:si e.a))))) => .(rex (weld -.f rex)) ?:(s.a rex ['-' rex]) :: @@ -4407,7 +4407,7 @@ |= hol=@ ^- [tape @] ?: &(=(0 hol) =(0 min)) - [rex (dec cou)] + [rex cou] =+ [rad=(mod hol bas) dar=(div hol bas)] %= $ min ?:(=(0 min) 0 (dec min))