urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-12 10:29:01 +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]
^+ +>
%= +>
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

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

@ -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
|=