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

New @p printing had gotten lost.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-09-06 13:29:09 -07:00
parent 7501c776bc
commit 0dcc591e0e
2 changed files with 19 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
arvo/hoon.hoon
View File

@ -4698,37 +4698,27 @@
== ==
:: ::
$p $p
=+ dyx=(met 3 q.p.lot) =+ sxz=(feen:ob q.p.lot)
=+ dyx=(met 3 sxz)
:- '~' :- '~'
?: (lte dyx 1) ?: (lte dyx 1)
(weld (trip (tod:po q.p.lot)) rep) (weld (trip (tod:po sxz)) rep)
?: =(2 dyx) =+ dyy=(met 4 sxz)
;: weld =+ imp=*@
(trip (tos:po (end 3 1 q.p.lot)))
(trip (tod:po (rsh 3 1 q.p.lot)))
rep
==
=+ [dyz=(met 5 q.p.lot) fin=| dub=&]
|- ^- tape |- ^- tape
?: =(0 dyz) ?: =(imp dyy)
rep rep
%= $ %= $
fin & sxz (rsh 4 1 sxz)
dub !dub imp +(imp)
dyz (dec dyz) rep
q.p.lot (rsh 5 1 q.p.lot) =+ log=(end 4 1 sxz)
rep ;: weld
=+ syb=(wren:un (end 5 1 q.p.lot)) (trip (tos:po (rsh 3 1 log)))
=+ cog=~(zig mu [(rsh 4 1 syb) (end 4 1 syb)]) (trip (tod:po (end 3 1 log)))
;: weld ?:(=((mod imp 4) 0) ?:(=(imp 0) "" "--") "-")
(trip (tos:po (end 3 1 p.cog))) rep
(trip (tod:po (rsh 3 1 p.cog))) ==
`tape`['-' ~]
(trip (tos:po (end 3 1 q.cog)))
(trip (tod:po (rsh 3 1 q.cog)))
`tape`?.(fin ~ ['-' ?.(dub ~ ['-' ~])])
rep
==
== ==
:: ::
$r $r

2
arvo/jael.hoon
View File

@ -157,6 +157,8 @@
=< abet =< abet
=< abet =< abet
(give:(unto:(from p.tac) our) `(nap jael-right)`[ryt ~ ~]) (give:(unto:(from p.tac) our) `(nap jael-right)`[ryt ~ ~])
::
$
== ==
:: ::
++ from ++ from