ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-01 19:46:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

3: Use +slot 2/3 instead of +slap %p/%q

Browse Source
This commit is contained in:
Elliot Glaysher 2018-12-01 11:31:54 -08:00
parent 1488bf0284
commit e94a1012f5
9 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sys/arvo.hoon
View File

@ -331,8 +331,8 @@
~& [%swim-lost lal (symp +>-.hil)]
[~ [vase.vane worm.vane]]
=^ pro worm.vane (need pru)
=^ moz worm.vane (~(slap wa worm.vane) pro [%limb %p])
=^ vem worm.vane (~(slap wa worm.vane) pro [%limb %q])
=^ moz worm.vane (~(slot wa worm.vane) 2 pro)
=^ vem worm.vane (~(slot wa worm.vane) 3 pro)
=^ sad worm.vane (said moz)
[sad [(soar vem) worm.vane]]
--

4
sys/vane/ames.hoon
View File

@ -1238,7 +1238,7 @@
~& [%ames-call-flub (@tas `*`-.q.hic)]
((hard task:able) q.hic)
==
^- [p=(list move) q=_..^$]
^- [(list move) _..^$]
=^ duy ..knob
(knob hen q.hic)
[duy ..^$]
@ -1263,7 +1263,7 @@
++ stay fox
++ take :: accept response
|= [tea=wire hen=duct hin=(hypo sign:able)]
^- [p=(list move) q=_..^$]
^- [(list move) _..^$]
=^ duy ..knap
(knap tea hen q.hin)
[duy ..^$]

4
sys/vane/behn.hoon
View File

@ -166,7 +166,7 @@
((hard task:able) q.hic)
==
=* req q.hic
|- ^- [p=(list move) q=_..^^$]
|- ^- [(list move) _..^^$]
::
?: ?=(%born -.req)
=. gad hen
@ -245,6 +245,6 @@
++ stay state
++ take :: process move
|= {tea/wire hen/duct hin/(hypo sign)}
^+ [p=*(list move) q=..^$]
^+ [*(list move) ..^$]
!!
--

4
sys/vane/clay.hoon
View File

@ -3719,7 +3719,7 @@
~& [%clay-call-flub (@tas `*`-.req)]
((hard task:able) req)
==
^+ [p=*(list move) q=..^$]
^+ [*(list move) ..^$]
?- -.req
$boat
:_ ..^$
@ -4075,7 +4075,7 @@
++ stay [%1 ruf]
++ take :: accept response
|= {tea/wire hen/duct hin/(hypo sign)}
^+ [p=*(list move) q=..^$]
^+ [*(list move) ..^$]
?: ?=({$merge @ @ @ @ @ ~} tea)
?> ?=(?($writ $made) +<.q.hin)
=+ our=(slav %p i.t.tea)

4
sys/vane/dill.hoon
View File

@ -495,7 +495,7 @@
|= $: hen/duct
hic/(hypo (hobo task:able))
==
^+ [p=*(list move) q=..^$]
^+ [*(list move) ..^$]
=> %= . :: XX temporary
q.hic
^- task:able
@ -576,7 +576,7 @@
::
++ take :: process move
|= {tea/wire hen/duct hin/(hypo sign)}
^+ [p=*(list move) q=..^$]
^+ [*(list move) ..^$]
=/ nus (ax hen)
?~ nus
:: we got this on an unknown duct or

4
sys/vane/eyre.hoon
View File

@ -2257,7 +2257,7 @@
~& [%eyre-call-flub (@tas `*`-.q.hic)]
((hard task:able) q.hic)
==
^+ [p=*(list move) q=..^$]
^+ [*(list move) ..^$]
?: ?=($wegh -.q.hic)
:_ ..^$ :_ ~
:^ hen %give %mass
@ -2321,7 +2321,7 @@
++ stay `bolo`+>-.$
++ take :: accept response
|= {tea/wire hen/duct hin/(hypo sign)}
^+ [p=*(list move) q=..^$]
^+ [*(list move) ..^$]
=+ our=`@p`0x100 :: XX sentinel
=+ ska=(sloy ski)
=+ sky=|=({* *} `(unit)`=+(a=(ska +<) ?~(a ~ ?~(u.a ~ [~ u.u.a]))))

6
sys/vane/ford.hoon
View File

@ -6095,7 +6095,7 @@
::
++ call
|= [=duct type=* wrapped-task=(hobo task:able)]
^- [p=(list move) q=_ford-gate]
^- [(list move) _ford-gate]
:: unwrap :task from :wrapped-task
::
=/ task=task:able
@ -6226,7 +6226,7 @@
::
++ take
|= [=wire =duct wrapped-sign=(hypo sign)]
^- [p=(list move) q=_ford-gate]
^- [(list move) _ford-gate]
:: unwrap :sign, ignoring unneeded +type in :p.wrapped-sign
::
=/ =sign q.wrapped-sign
@ -6244,7 +6244,7 @@
~| [%take-our our]
(~(got by state-by-ship.ax) our)
::
|^ ^- [p=(list move) q=_ford-gate]
|^ ^- [(list move) _ford-gate]
::
=^ moves ship-state
?+ i.t.wire ~|([%bad-take-wire wire] !!)

4
sys/vane/gall.hoon
View File

@ -1302,7 +1302,7 @@
++ call :: request
~% %gall-call +> ~
|= {hen/duct hic/(hypo (hobo task:able))}
^+ [p=*(list move) q=..^$]
^+ [*(list move) ..^$]
=> .(q.hic ?.(?=($soft -.q.hic) q.hic ((hard task:able) p.q.hic)))
?- -.q.hic
$conf
@ -1392,7 +1392,7 @@
++ take :: response
~/ %gall-take
|= {tea/wire hen/duct hin/(hypo sign-arvo)}
^+ [p=*(list move) q=..^$]
^+ [*(list move) ..^$]
~| [%gall-take tea]
?> ?=({@ ?($sys $use) *} tea)
=+ our=(need (slaw %p i.tea))

4
sys/vane/jael.hoon
View File

@ -2200,7 +2200,7 @@
hen/duct
hic/(hypo (hobo task:able))
==
^- {p/(list move) q/_..^$}
^- [(list move) _..^$]
=^ did lex
=- abet:(~(call of [now eny] lex) hen -)
?. ?=($soft -.q.hic) q.hic
@ -2385,7 +2385,7 @@
hen/duct
hin/(hypo sign)
==
^- {p/(list move) q/_..^$}
^- [(list move) _..^$]
=^ did lex abet:(~(take of [now eny] lex) tea hen q.hin)
[did ..^$]
--