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

Merge branch 'master' of github.com:urbit/urbit

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-08-08 11:19:46 -07:00
commit 06a3a72cee
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
arvo/hoon.hoon
View File

@ -2422,7 +2422,9 @@
|= nail ^+ (sef) |= nail ^+ (sef)
=+ [har tap]=[p q]:+< =+ [har tap]=[p q]:+<
=+ lev=(fil 3 (dec q.har) ' ') =+ lev=(fil 3 (dec q.har) ' ')
=+ roq=((star ;~(pose prn ;~(sfix (just `@t`10) (jest lev)))) har tap) =+ eol=(just `@t`10)
=+ =- roq=((star ;~(pose prn ;~(sfix eol (jest lev)) -)) har tap)
;~(simu ;~(plug eol eol) eol)
?~ q.roq roq ?~ q.roq roq
=+ vex=(sef har(q 1) p.u.q.roq) =+ vex=(sef har(q 1) p.u.q.roq)
=+ fur=p.vex(q (add (dec q.har) q.p.vex)) =+ fur=p.vex(q (add (dec q.har) q.p.vex))
@ -2822,7 +2824,10 @@
(ifix [soq soq] (boss 256 (more gon qit))) (ifix [soq soq] (boss 256 (more gon qit)))
== ==
%- inde %+ ifix %- inde %+ ifix
[;~(plug soqs (just `@`10)) ;~(plug (just `@`10) soqs)] :- ;~ plug soqs
;~(pose ;~(plug (plus ace) vul) (just '\0a'))
==
;~(plug (just '\0a') soqs)
(boss 256 (star qat)) (boss 256 (star qat))
== ==
:: ::