urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-13 06:25:09 +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 |% :: vane interface
++ beat ++ beat
|= [wru=(unit writ) tea=wire hen=duct fav=card] |= [tea=wire hen=duct fav=card]
=+ wru=*(unit writ)
^- [p=(list move) q=vane] ^- [p=(list move) q=vane]
=^ duy ..knap =^ duy ..knap
(knap wru tea hen fav) (knap wru tea hen fav)

3
arvo/batz.hoon
View File

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

3
arvo/clay.hoon
View File

@ -367,7 +367,8 @@
^? :: opaque core ^? :: opaque core
|% :: |% ::
++ beat :: update ++ 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] ^- [p=(list move) q=vane]
?+ -.fav [[[wru hen fav] ~] ..^$] ?+ -.fav [[[wru hen fav] ~] ..^$]
%crud %crud

3
arvo/dill.hoon
View File

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

3
arvo/eyre.hoon
View File

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

3
arvo/ford.hoon
View File

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

6
arvo/hoon.hoon
View File

@ -8830,8 +8830,7 @@
=+ rig=(slym ves +<) =+ rig=(slym ves +<)
|% |%
++ beat ++ beat
|= $: wru=(unit writ) |= $: pax=wire
pax=wire
hen=duct hen=duct
fav=curd fav=curd
== ==
@ -8969,7 +8968,8 @@
=+ ^= yub =+ ^= yub
%- beat:win %- beat:win
:: [p.i.mor t.i.q.i.mor t.q.i.mor r.i.mor] :: [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]] [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 |+ [now=@da eny=@ ska=$+(* (unit (unit)))] :: activate
^? |% :: ^? |% ::
++ beat :: update ++ beat :: update
|= $: wru=(unit writ) :: calling identity |= $: pax=wire :: pretext
pax=wire :: pretext
hen=duct :: channel hen=duct :: channel
fav=card :: event fav=card :: event
== :: == ::