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

Stop passing the writ in.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-05-21 13:33:15 -07:00
parent dd33d2a71a
commit fe69371100
8 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
arvo/ames.hoon
View File

@ -1434,7 +1434,8 @@
=<
|% :: vane interface
++ beat
|= [wru=(unit writ) tea=wire hen=duct fav=card]
|= [tea=wire hen=duct fav=card]
=+ wru=*(unit writ)
^- [p=(list move) q=vane]
=^ duy ..knap
(knap wru tea hen fav)

3
arvo/batz.hoon
View File

@ -1150,8 +1150,9 @@
^? :: opaque core
|% :: poke/peek pattern
++ beat :: process move
|= [wru=(unit writ) tea=wire hen=duct fav=card]
|= [tea=wire hen=duct fav=card]
^- [p=(list move) q=vane]
=+ wru=*(unit writ)
=+ sky=|=(* `(unit)`=+(a=(ska +<) ?~(a ~ ?~(u.a ~ [~ u.u.a]))))
?: ?=([%crud *] fav)
[[[wru [/d hen] [%flog fav]] ~] ..^$]

3
arvo/clay.hoon
View File

@ -367,7 +367,8 @@
^? :: opaque core
|% ::
++ beat :: update
|= [wru=(unit writ) tea=wire hen=duct fav=card]
|= [tea=wire hen=duct fav=card]
=+ wru=*(unit writ)
^- [p=(list move) q=vane]
?+ -.fav [[[wru hen fav] ~] ..^$]
%crud

3
arvo/dill.hoon
View File

@ -9,8 +9,9 @@
^? :: opaque core
|% :: poke/peek pattern
++ beat :: process move
|= [wru=(unit writ) tea=wire hen=duct fav=card]
|= [tea=wire hen=duct fav=card]
^- [p=(list move) q=vane]
=+ wru=*(unit writ)
?: ?=(%flog -.fav)
:_ ..^$
%+ turn (~(tap by dug) *(list ,[p=duct q=yard]))

3
arvo/eyre.hoon
View File

@ -1829,8 +1829,9 @@
^? :: opaque core
|% ::
++ beat :: process move
|= [wru=(unit writ) tea=wire hen=duct fav=card]
|= [tea=wire hen=duct fav=card]
^- [p=(list move) q=vane]
=+ wru=*(unit writ)
=+ sky=|=(* `(unit)`=+(a=(ska +<) ?~(a ~ ?~(u.a ~ [~ u.u.a]))))
=. ney (shax :(mix (shax now) +(eny) ney)) :: XX!! shd not need
?: ?=(%crud -.fav)

3
arvo/ford.hoon
View File

@ -573,8 +573,9 @@
^? :: opaque core
|% ::
++ beat :: process move
|= [wru=(unit writ) tea=wire hen=duct fav=card]
|= [tea=wire hen=duct fav=card]
^- [p=(list move) q=vane]
=+ wru=*(unit writ)
?~ wru ~|(%beat-whom !!)
=+ ^= bay ^- baby
=+ buy=(~(get by pol.lex) q.u.wru)

6
arvo/hoon.hoon
View File

@ -8830,8 +8830,7 @@
=+ rig=(slym ves +<)
|%
++ beat
|= $: wru=(unit writ)
pax=wire
|= $: pax=wire
hen=duct
fav=curd
==
@ -8969,7 +8968,8 @@
=+ ^= yub
%- beat:win
:: [p.i.mor t.i.q.i.mor t.q.i.mor r.i.mor]
[~ t.i.q.i.mor t.q.i.mor r.i.mor]
:: [~ t.i.q.i.mor t.q.i.mor r.i.mor]
[t.i.q.i.mor t.q.i.mor r.i.mor]
[p.yub [[p.i.naf ves:q.yub] t.naf]]
--
--

3
arvo/zuse.hoon
View File

@ -2530,8 +2530,7 @@
|+ [now=@da eny=@ ska=$+(* (unit (unit)))] :: activate
^? |% ::
++ beat :: update
|= $: wru=(unit writ) :: calling identity
pax=wire :: pretext
|= $: pax=wire :: pretext
hen=duct :: channel
fav=card :: event
== ::