diff --git a/base/arvo/ford.hoon b/base/arvo/ford.hoon index fa7c31e08..662693c45 100644 --- a/base/arvo/ford.hoon +++ b/base/arvo/ford.hoon @@ -1684,7 +1684,7 @@ :: ++ load :: highly forgiving |= old=axle - =. pol.old (~(run by pol.old) |=(baby +<(jav ~))) + ::=. pol.old (~(run by pol.old) |=(baby +<(jav ~))) ..^$(+>- old) ::=. old :: ?. ?=([%0 *] old) old :: remove at 1 diff --git a/base/arvo/zuse.hoon b/base/arvo/zuse.hoon index fc983b617..9b10d40c2 100644 --- a/base/arvo/zuse.hoon +++ b/base/arvo/zuse.hoon @@ -1161,12 +1161,13 @@ :: ++ ofis :: XX broken =- |=(a=cord (rash a fel)) - =- fel=;~(sfix (boss 64 (plus siw)) (stun 0^2 tis)) + =< fel=(cook |=(a=@ `@t`(swap 3 a)) (bass 64 .)) + =- (cook welp ;~(plug (plus siw) (stun 0^2 (cold %0 tis)))) ^= siw ;~ pose - dit - (cook |=(a=@ (sub a (sub 'A' 10))) (shim 'A' 'Z')) - (cook |=(a=@ (sub a (sub 'a' 36))) (shim 'a' 'z')) + (cook |=(a=@ (sub a 'A')) (shim 'A' 'Z')) + (cook |=(a=@ (sub a 'G')) (shim 'a' 'z')) + (cook |=(a=@ (add a 4)) (shim '0' '9')) (cold 62 (just '+')) (cold 63 (just '/')) ==