ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-13 08:38:43 +03:00
Code Issues Packages Projects Releases Wiki Activity

Move ++perk to ++peel; move zuse ++perk to h.h.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-10-27 17:27:08 -07:00
parent 71efed5c3b
commit 101b6ef840
2 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
arvo/hoon.hoon
View File

@ -4253,6 +4253,14 @@
=+ zac=(lust i.q.tub p.tub) =+ zac=(lust i.q.tub p.tub)
[zac [~ i.q.tub [zac t.q.tub]]] [zac [~ i.q.tub [zac t.q.tub]]]
:: ::
++ perk :: parse cube fork
|* a/(pole @tas)
?~ a fail
;~ pose
(cold -.a (jest -.a))
$(a +.a)
==
::
++ pick :: rule for ++each ++ pick :: rule for ++each
|* {a/rule b/rule} |* {a/rule b/rule}
;~ pose ;~ pose
@ -6447,7 +6455,7 @@
%moot moot %moot moot
%mull mull %mull mull
%nest nest %nest nest
%perk perk %peel peel
%play play %play play
%peek peek %peek peek
%repo repo %repo repo
@ -6960,7 +6968,7 @@
?^ zem ?^ zem
:+ %& [`axe lon] :+ %& [`axe lon]
[%| (peg 2 p.u.zem) [[sut(p.q %gold) q.u.zem] ~ ~]] [%| (peg 2 p.u.zem) [[sut(p.q %gold) q.u.zem] ~ ~]]
=+ pec=(perk way p.q.sut) =+ pec=(peel way p.q.sut)
?. sam.pec lose ?. sam.pec lose
?: con.pec $(sut p.sut, axe (peg axe 3)) ?: con.pec $(sut p.sut, axe (peg axe 3))
$(sut (peek(sut p.sut) way 2), axe (peg axe 6)) $(sut (peek(sut p.sut) way 2), axe (peg axe 6))
@ -7611,17 +7619,6 @@
== == == ==
-- --
:: ::
++ perk
|= {way/vial met/?($gold $iron $lead $zinc)}
^- {sam/? con/?}
?: ?=($gold met) [& &]
?- way
$both [| |]
$free [& &]
$read [?=($zinc met) |]
$rite [?=($iron met) |]
==
::
++ peek ++ peek
~/ %peek ~/ %peek
|= {way/?($read $rite $both $free) axe/axis} |= {way/?($read $rite $both $free) axe/axis}
@ -7636,7 +7633,7 @@
{$cell *} ?:(=(2 now) ^$(sut p.sut, axe lat) ^$(sut q.sut, axe lat)) {$cell *} ?:(=(2 now) ^$(sut p.sut, axe lat) ^$(sut q.sut, axe lat))
{$core *} {$core *}
?. =(3 now) %noun ?. =(3 now) %noun
=+ pec=(perk way p.q.sut) =+ pec=(peel way p.q.sut)
%= ^$ %= ^$
axe lat axe lat
sut sut
@ -7657,6 +7654,17 @@
* $(sut repo) * $(sut repo)
== ==
:: ::
++ peel
|= {way/vial met/?($gold $iron $lead $zinc)}
^- {sam/? con/?}
?: ?=($gold met) [& &]
?- way
$both [| |]
$free [& &]
$read [?=($zinc met) |]
$rite [?=($iron met) |]
==
::
++ play ++ play
~/ %play ~/ %play
=> .(vet |) => .(vet |)

8
arvo/zuse.hoon
View File

@ -2585,14 +2585,6 @@
?~ myn ~ ?~ myn ~
?: =(~ t.myn) (trip i.myn) ?: =(~ t.myn) (trip i.myn)
(weld (trip i.myn) `tape`['/' $(myn t.myn)]) (weld (trip i.myn) `tape`['/' $(myn t.myn)])
:: :: ++perk:markup
++ perk :: parse cube fork
|* a/(pole @tas)
?~ a fail
;~ pose
(cold -.a (jest -.a))
$(a +.a)
==
:: :: ++poja:markup :: :: ++poja:markup
++ poja :: parse JSON ++ poja :: parse JSON
=< |=(a/cord `(unit json)`(rush a apex)) =< |=(a/cord `(unit json)`(rush a apex))