diff --git a/arvo/clay.hoon b/arvo/clay.hoon index a7a16d8765..1e950bed90 100644 --- a/arvo/clay.hoon +++ b/arvo/clay.hoon @@ -246,8 +246,7 @@ |= [hen=duct wen=@da mer=mizu] ^+ +> %= +> - vag ~& leta=let.dom - ?~(hez vag :_(vag [u.hez [%ergo who syd let.dom]])) + vag ?~(hez vag :_(vag [u.hez [%ergo who syd let.dom]])) ::yel [[hen %note '=' %leaf ~] yel] :: XX do better == :: @@ -255,8 +254,7 @@ |= [hen=duct wen=@da lem=nori] ^+ +> %= +> - vag ~& leto=let.dom - ?~(hez vag :_(vag [u.hez [%ergo who syd let.dom]])) + vag ?~(hez vag :_(vag [u.hez [%ergo who syd let.dom]])) yel =+ pre=`path`~[(scot %p for) syd (scot %ud let.dom)] ?- -.lem diff --git a/main/app/begin/core.hook b/main/app/begin/core.hook index 8ac7bebfcc..ad7b04dcfc 100644 --- a/main/app/begin/core.hook +++ b/main/app/begin/core.hook @@ -105,10 +105,12 @@ %eny =+ a=(rush txt (boss 256 (more gon qit))) ?~ a [[~ 'invalid input' ~] +>.$] + =. a (shax a) :_ +>.$(eny u.a, sat %lag) :- `['Language: ' %text 'en'] %- lore %- crip """ + Entropy check: {<`@p`(mug eny)>} What language would your ship rather speak? Enter it as a two-letter (ISO 639-1) code, like "en" for English. Whatever @@ -545,13 +547,7 @@ ?~(pot.res ~ (spam %rush %prompt u.pot.res)) %- zing (turn (flop tak.res) |=(a=cord (spam %rush %txt a))) - :_ +>.$ - :- [ost %give +.sih] - %+ turn (~(tap by sup.hid)) - |= [ost=bone *] - :^ ost %give %rush - :- %tang :_ ~ - [%leaf ?:(?=(%nice +<.sih) "begin successful" "begin failed")] + [[ost %give +.sih]~ +>.$] :: ++ peer |=