ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 01:52:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

fixed :begin entropy bug

Browse Source
This commit is contained in:
Philip C Monk 2014-11-20 17:40:59 -05:00
parent 9564e1bc62
commit 3e2a16a3ea
2 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/clay.hoon
View File

@ -246,8 +246,7 @@
|= [hen=duct wen=@da mer=mizu] |= [hen=duct wen=@da mer=mizu]
^+ +> ^+ +>
%= +> %= +>
vag ~& leta=let.dom vag ?~(hez vag :_(vag [u.hez [%ergo who syd let.dom]]))
?~(hez vag :_(vag [u.hez [%ergo who syd let.dom]]))
::yel [[hen %note '=' %leaf ~] yel] :: XX do better ::yel [[hen %note '=' %leaf ~] yel] :: XX do better
== ==
:: ::
@ -255,8 +254,7 @@
|= [hen=duct wen=@da lem=nori] |= [hen=duct wen=@da lem=nori]
^+ +> ^+ +>
%= +> %= +>
vag ~& leto=let.dom vag ?~(hez vag :_(vag [u.hez [%ergo who syd let.dom]]))
?~(hez vag :_(vag [u.hez [%ergo who syd let.dom]]))
yel yel
=+ pre=`path`~[(scot %p for) syd (scot %ud let.dom)] =+ pre=`path`~[(scot %p for) syd (scot %ud let.dom)]
?- -.lem ?- -.lem

10
main/app/begin/core.hook
View File

@ -105,10 +105,12 @@
%eny %eny
=+ a=(rush txt (boss 256 (more gon qit))) =+ a=(rush txt (boss 256 (more gon qit)))
?~ a [[~ 'invalid input' ~] +>.$] ?~ a [[~ 'invalid input' ~] +>.$]
=. a (shax a)
:_ +>.$(eny u.a, sat %lag) :_ +>.$(eny u.a, sat %lag)
:- `['Language: ' %text 'en'] :- `['Language: ' %text 'en']
%- lore %- crip %- lore %- crip
""" """
Entropy check: {<`@p`(mug eny)>}
What language would your ship rather speak? Enter it as a What language would your ship rather speak? Enter it as a
two-letter (ISO 639-1) code, like "en" for English. Whatever two-letter (ISO 639-1) code, like "en" for English. Whatever
@ -545,13 +547,7 @@
?~(pot.res ~ (spam %rush %prompt u.pot.res)) ?~(pot.res ~ (spam %rush %prompt u.pot.res))
%- zing %- zing
(turn (flop tak.res) |=(a=cord (spam %rush %txt a))) (turn (flop tak.res) |=(a=cord (spam %rush %txt a)))
:_ +>.$ [[ost %give +.sih]~ +>.$]
:- [ost %give +.sih]
%+ turn (~(tap by sup.hid))
|= [ost=bone *]
:^ ost %give %rush
:- %tang :_ ~
[%leaf ?:(?=(%nice +<.sih) "begin successful" "begin failed")]
:: ::
++ peer ++ peer
|= |=