mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-11-29 12:15:43 +03:00
Mostly without $^.
This commit is contained in:
C. Guy Yarvin
parent
91439da440
commit
04ca90b9b5
@ -101,8 +101,7 @@
|
||||
!: ::
|
||||
:::: ::
|
||||
:: ::
|
||||
|_ $^
|
||||
_: hid+bowl :: system state
|
||||
|_ _: hid+bowl :: system state
|
||||
house :: program state
|
||||
== ::
|
||||
++ he :: per session
|
||||
@ -511,8 +510,7 @@
|
||||
++ dy-show-type-noun
|
||||
|= a+type ^- tank
|
||||
=- >[-]<
|
||||
|- ^- $^
|
||||
_? _% {$atom @tas}
|
||||
|- ^- _? _% {$atom @tas}
|
||||
{$cell __($) __($)}
|
||||
{$cube * __($)}
|
||||
{$face @tas __($)}
|
||||
@ -520,7 +518,7 @@
|
||||
{$hold (list {__($) twig})}
|
||||
==
|
||||
wain :: "<|core|>"
|
||||
$^(_?($noun $void))
|
||||
_?($noun $void)
|
||||
==
|
||||
?+ a a
|
||||
{_?($cube $face) ^} a(q $(a q.a))
|
||||
@ -534,8 +532,7 @@
|
||||
|= a+dojo-source ^- tank
|
||||
=- >[-]<
|
||||
=+ `{@ bil+dojo-build}`a
|
||||
|- ^- $^
|
||||
_& [__($) __($)]
|
||||
|- ^- _& [__($) __($)]
|
||||
_? twig
|
||||
_% {$ur purl}
|
||||
{$dv path}
|
||||
@ -545,7 +542,7 @@
|
||||
==
|
||||
==
|
||||
?- -.bil
|
||||
$^(_?($ur $dv)) bil
|
||||
_?($ur $dv) bil
|
||||
$ex ?. ?=({$cltr *} p.bil) p.bil
|
||||
|- ^- twig
|
||||
?~ p.p.bil !!
|
||||
|
||||
@ -35,8 +35,7 @@
|
||||
:: :: ::
|
||||
:::: :: ::
|
||||
:: :: ::
|
||||
|_ $^
|
||||
_: hid+bowl :: system state
|
||||
|_ _: hid+bowl :: system state
|
||||
hood-0 :: server state
|
||||
== ::
|
||||
++ able :: find/make part
|
||||
|
||||
@ -126,8 +126,7 @@
|
||||
++ ra :: per transaction
|
||||
|_ moves+(list move)
|
||||
++ sh :: per console
|
||||
|_ $^
|
||||
_: coz+(list command) :: talk actions
|
||||
|_ _: coz+(list command) :: talk actions
|
||||
she+shell
|
||||
==
|
||||
++ sh-scad :: command parser
|
||||
@ -401,8 +400,7 @@
|
||||
::
|
||||
++ sh-repo-house-diff
|
||||
|= {one+shelf two+shelf}
|
||||
=| $^
|
||||
_= ret
|
||||
=| _= ret
|
||||
_: old+(list (pair span (pair posture cord)))
|
||||
new+(list (pair span (pair posture cord)))
|
||||
cha+(list (pair span (pair posture cord)))
|
||||
@ -430,8 +428,7 @@
|
||||
::
|
||||
++ sh-repo-atlas-diff
|
||||
|= {one+atlas two+atlas}
|
||||
=| $^
|
||||
_= ret
|
||||
=| _= ret
|
||||
_: old+(list (pair ship status))
|
||||
new+(list (pair ship status))
|
||||
cha+(list (pair ship status))
|
||||
@ -459,8 +456,7 @@
|
||||
::
|
||||
++ sh-repo-cabal-diff
|
||||
|= {one+(map station config) two+(map station config)}
|
||||
=| $^
|
||||
_= ret
|
||||
=| _= ret
|
||||
_: old+(list (pair station config))
|
||||
new+(list (pair station config))
|
||||
cha+(list (pair station config))
|
||||
@ -488,8 +484,7 @@
|
||||
::
|
||||
++ sh-repo-rogue-diff
|
||||
|= {one+(map partner atlas) two+(map partner atlas)}
|
||||
=| $^
|
||||
_= ret
|
||||
=| _= ret
|
||||
_: old+(list (pair partner atlas))
|
||||
new+(list (pair partner atlas))
|
||||
cha+(list (pair partner atlas))
|
||||
@ -517,8 +512,7 @@
|
||||
::
|
||||
++ sh-repo-whom-diff
|
||||
|= {one+(set partner) two+(set partner)}
|
||||
=| $^
|
||||
_= ret
|
||||
=| _= ret
|
||||
_: old+(list partner)
|
||||
new+(list partner)
|
||||
==
|
||||
@ -543,8 +537,7 @@
|
||||
::
|
||||
++ sh-repo-ship-diff
|
||||
|= {one+(set ship) two+(set ship)}
|
||||
=| $^
|
||||
_= ret
|
||||
=| _= ret
|
||||
_: old+(list ship)
|
||||
new+(list ship)
|
||||
==
|
||||
@ -629,8 +622,7 @@
|
||||
(sh-repo-ship-diff q.cordon.laz q.cordon.loc)
|
||||
::
|
||||
++ sh-repo-cabal-changes
|
||||
|= $^
|
||||
_: laz+(map station config)
|
||||
|= _: laz+(map station config)
|
||||
old+(list (pair station config))
|
||||
new+(list (pair station config))
|
||||
cha+(list (pair station config))
|
||||
@ -703,8 +695,7 @@
|
||||
['%' (trip p.saz)]
|
||||
::
|
||||
++ sh-repo-group-diff-here :: print atlas diff
|
||||
|= $^
|
||||
_: pre+tape
|
||||
|= _: pre+tape
|
||||
_= cul
|
||||
_: old+(list (pair ship status))
|
||||
new+(list (pair ship status))
|
||||
@ -1458,8 +1449,7 @@
|
||||
+>(p.outbox +(p.outbox), q.outbox (~(put by q.outbox) p.outbox tip))
|
||||
::
|
||||
++ pa :: story core
|
||||
|_ $^
|
||||
_: man+span
|
||||
|_ _: man+span
|
||||
story
|
||||
==
|
||||
++ pa-abet
|
||||
@ -1941,8 +1931,7 @@
|
||||
--
|
||||
::
|
||||
++ tr :: telegram renderer
|
||||
|_ $^
|
||||
_: man+span
|
||||
|_ _: man+span
|
||||
nob+?
|
||||
who+ship
|
||||
sen+serial
|
||||
|
||||
@ -548,8 +548,7 @@
|
||||
==
|
||||
::
|
||||
++ wist :: wist:lax:as:go
|
||||
|= $^ :: route via
|
||||
_: now+@da
|
||||
|= _: now+@da :: route via
|
||||
waz+(list @p)
|
||||
ryn+(unit lane)
|
||||
pac+rock
|
||||
@ -1555,16 +1554,14 @@
|
||||
::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||
:: section 4aH, protocol vane ::
|
||||
::
|
||||
=| $^
|
||||
_: fox+fort :: kernel state
|
||||
=| _: fox+fort :: kernel state
|
||||
== ::
|
||||
|= {now+@da eny+@ ski+sled} :: current invocation
|
||||
^? :: opaque core
|
||||
=<
|
||||
|% :: vane interface
|
||||
++ call :: handle request
|
||||
|= $^
|
||||
_: hen+duct
|
||||
|= _: hen+duct
|
||||
hic+(hypo (hobo kiss-ames))
|
||||
==
|
||||
=> %= . :: XX temporary
|
||||
|
||||
@ -146,16 +146,14 @@
|
||||
--
|
||||
--
|
||||
. ==
|
||||
=| $^
|
||||
_: $0 ::
|
||||
=| _: $0 ::
|
||||
tym+{p+clok q+clok} :: positive/negative
|
||||
== ::
|
||||
|= {now+@da eny+@ ski+sled} :: current invocation
|
||||
^?
|
||||
|% :: poke/peek pattern
|
||||
++ call :: handle request
|
||||
|= $^
|
||||
_: hen+duct
|
||||
|= _: hen+duct
|
||||
hic+(hypo (hobo kiss))
|
||||
==
|
||||
^- {p+(list move) q+__(..^$)}
|
||||
|
||||
@ -917,8 +917,7 @@
|
||||
==
|
||||
::
|
||||
++ apply-foreign-update :: apply subscription
|
||||
|= $^
|
||||
_: lem+(unit @da) :: complete up to
|
||||
|= _: lem+(unit @da) :: complete up to
|
||||
gar+(map aeon tako) :: new ids
|
||||
let+aeon :: next id
|
||||
lar+(set yaki) :: new commits
|
||||
@ -2531,7 +2530,7 @@
|
||||
:: -- `hez` is the duct to the unix sync.
|
||||
::
|
||||
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||
=| $^ :: instrument state
|
||||
=| :: instrument state
|
||||
_: $0 :: vane version
|
||||
ruf+raft :: revision tree
|
||||
== ::
|
||||
@ -2539,8 +2538,7 @@
|
||||
^? :: opaque core
|
||||
|% ::
|
||||
++ call :: handle request
|
||||
|= $^
|
||||
_: hen+duct
|
||||
|= _: hen+duct
|
||||
hic+(hypo (hobo kiss))
|
||||
==
|
||||
=> %= . :: XX temporary
|
||||
|
||||
@ -104,8 +104,7 @@
|
||||
|= {now+@da eny+@ ski+sled} :: current invocation
|
||||
=> |%
|
||||
++ as :: per cause
|
||||
|_ $^
|
||||
_: {moz+(list move) hen+duct our+ship}
|
||||
|_ _: {moz+(list move) hen+duct our+ship}
|
||||
axon
|
||||
==
|
||||
++ abet :: resolve
|
||||
@ -378,8 +377,7 @@
|
||||
--
|
||||
|% :: poke/peek pattern
|
||||
++ call :: handle request
|
||||
|= $^
|
||||
_: hen+duct
|
||||
|= _: hen+duct
|
||||
hic+(hypo (hobo kiss))
|
||||
==
|
||||
^+ [p=*(list move) q=..^$]
|
||||
|
||||
@ -537,8 +537,7 @@
|
||||
--
|
||||
|% :: functions
|
||||
++ ye :: per event
|
||||
=| $^
|
||||
_: _: hen+duct :: event floor
|
||||
=| _: _: hen+duct :: event floor
|
||||
_: now+@da :: event date
|
||||
eny+@ :: unique entropy
|
||||
our+ship :: current ship
|
||||
@ -928,8 +927,7 @@
|
||||
::
|
||||
::
|
||||
++ handle
|
||||
|= $^
|
||||
_: {hat+hart pok+pork quy+quay} :: purl parsed url
|
||||
|= _: {hat+hart pok+pork quy+quay} :: purl parsed url
|
||||
{cip+clip aut+?} :: client ip nonymous?
|
||||
{mef+meth maf+math bod+(unit octs)} :: method/headers/body
|
||||
==
|
||||
@ -1563,8 +1561,7 @@
|
||||
^? :: opaque core
|
||||
|% ::
|
||||
++ call :: handle request
|
||||
|= $^
|
||||
_: hen+duct
|
||||
|= _: hen+duct
|
||||
hic+(hypo (hobo kiss))
|
||||
==
|
||||
=> %= . :: XX temporary
|
||||
|
||||
@ -176,8 +176,7 @@
|
||||
==
|
||||
::
|
||||
++ za :: per event
|
||||
=| $^
|
||||
_: _: our+ship :: computation owner
|
||||
=| _: _: our+ship :: computation owner
|
||||
hen+duct :: event floor
|
||||
_: now+@da :: event date
|
||||
eny+@ :: unique entropy
|
||||
@ -1216,8 +1215,7 @@
|
||||
|= {cof+cafe too+mark fro+(set mark)}
|
||||
:: ~& lion/[too=too fro=(sa fro)]
|
||||
^- (bolt (list mark))
|
||||
=| $^
|
||||
_: war+(map mark (list mark))
|
||||
=| _: war+(map mark (list mark))
|
||||
pax+(list mark)
|
||||
won+{p+mark q+(qeu mark)}
|
||||
==
|
||||
@ -1458,8 +1456,7 @@
|
||||
::
|
||||
++ meow :: assemble
|
||||
|= {how+beam arg+heel}
|
||||
=| $^
|
||||
_: rop+(map term (pair hoof twig)) :: structures
|
||||
=| _: rop+(map term (pair hoof twig)) :: structures
|
||||
bil+(map term (pair hoof twig)) :: libraries
|
||||
boy+(list twig) :: body stack
|
||||
==
|
||||
|
||||
@ -90,8 +90,7 @@
|
||||
::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||
. ==
|
||||
=| all+axle :: all vane state
|
||||
|= $^
|
||||
_: now+@da :: urban time
|
||||
|= _: now+@da :: urban time
|
||||
eny+@uvI :: entropy
|
||||
ska+sled :: activate
|
||||
== :: opaque core
|
||||
@ -100,8 +99,7 @@
|
||||
::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||
++ mo
|
||||
~% %gall-mo +> ~
|
||||
|_ $^
|
||||
_: _: our+@p
|
||||
|_ _: _: our+@p
|
||||
hen+duct
|
||||
moz+(list move)
|
||||
==
|
||||
@ -535,8 +533,7 @@
|
||||
::
|
||||
++ ap :: agent engine
|
||||
~% %gall-ap +> ~
|
||||
|_ $^
|
||||
_: _: dap+dude
|
||||
|_ _: _: dap+dude
|
||||
pry+prey
|
||||
ost+bone
|
||||
zip+(list cove)
|
||||
|
||||
@ -6,8 +6,7 @@
|
||||
::::
|
||||
!:
|
||||
:- %say
|
||||
|= $^
|
||||
_: {now+@da eny+@uvI bec+beak}
|
||||
|= _: {now+@da eny+@uvI bec+beak}
|
||||
{arg+?($~ {? $~}) $~}
|
||||
==
|
||||
:- %kiln-autoload
|
||||
|
||||
@ -6,8 +6,7 @@
|
||||
::::
|
||||
!:
|
||||
:- %say
|
||||
|= $^
|
||||
_: {now+@da eny+@uvI bec+beak}
|
||||
|= _: {now+@da eny+@uvI bec+beak}
|
||||
{arg+$~ $~}
|
||||
==
|
||||
[%helm-deset ~]
|
||||
|
||||
@ -6,8 +6,7 @@
|
||||
::::
|
||||
!:
|
||||
:- %say
|
||||
|= $^
|
||||
_: {now+@da eny+@uvI bec+beak}
|
||||
|= _: {now+@da eny+@uvI bec+beak}
|
||||
{{pax+path pot+_|($~ {v+@tas $~})} $~}
|
||||
==
|
||||
?~ pot
|
||||
|
||||
@ -6,8 +6,7 @@
|
||||
::::
|
||||
!:
|
||||
:- %say
|
||||
|= $^
|
||||
_: {now+@da eny+@uvI bec+beak}
|
||||
|= _: {now+@da eny+@uvI bec+beak}
|
||||
{arg+(list term) $~}
|
||||
==
|
||||
:- %helm-reload
|
||||
|
||||
@ -6,8 +6,7 @@
|
||||
::::
|
||||
!:
|
||||
:- %say
|
||||
|= $^
|
||||
_: {now+@da eny+@uvI bec+beak}
|
||||
|= _: {now+@da eny+@uvI bec+beak}
|
||||
{$~ $~}
|
||||
==
|
||||
:- %noun
|
||||
|
||||
@ -586,8 +586,7 @@
|
||||
=. q.tub
|
||||
%+ scan q.tub :: tab hackery :: XX per line
|
||||
(star ;~(pose prn tab nal))
|
||||
=| $^
|
||||
_: _: top+down :: finished toplevel elements
|
||||
=| _: _: top+down :: finished toplevel elements
|
||||
{sap+@u nod+node} :: spacing currrent leaf block
|
||||
cur+stack :: stack of nested current blocks
|
||||
==
|
||||
|
||||
@ -506,8 +506,7 @@
|
||||
ta-abet:(ta-fec:(se-tame gyl) fec)
|
||||
::
|
||||
++ ta :: per target
|
||||
|_ $^
|
||||
_: _: liv+? :: don't delete
|
||||
|_ _: _: liv+? :: don't delete
|
||||
gyl+gill :: target app
|
||||
== ::
|
||||
target :: target state
|
||||
|
||||
@ -91,7 +91,7 @@
|
||||
==
|
||||
::
|
||||
++ stam
|
||||
^- $^ _+(json (unit statement))
|
||||
^- _+(json (unit statement))
|
||||
%+ cu eval
|
||||
(ot date/di bouquet/(as (ar so)) speech/spec ~)
|
||||
::
|
||||
|
||||
@ -181,7 +181,7 @@
|
||||
::
|
||||
::
|
||||
++ thot
|
||||
^- $^(_+(json (unit thought)))
|
||||
^- _+(json (unit thought))
|
||||
%- ot :~
|
||||
serial/(ci (slat %uv) so)
|
||||
audience/audi
|
||||
|
||||
@ -90,8 +90,7 @@
|
||||
--
|
||||
::
|
||||
++ mash
|
||||
|= $^
|
||||
_: {als+ship ald+desk ali+(urge cord)}
|
||||
|= _: {als+ship ald+desk ali+(urge cord)}
|
||||
{bos+ship bod+desk bob+(urge cord)}
|
||||
==
|
||||
^- (urge cord)
|
||||
@ -141,8 +140,7 @@
|
||||
==
|
||||
::
|
||||
++ annotate :: annotate conflict
|
||||
|= $^
|
||||
_: ali+(list @t)
|
||||
|= _: ali+(list @t)
|
||||
bob+(list @t)
|
||||
bas+(list @t)
|
||||
==
|
||||
@ -188,8 +186,7 @@
|
||||
|= {ali+(urge cord) bob+(urge cord)}
|
||||
^- {fic+{$| p+(list cord) q+(list cord)} ali+(urge cord) bob+(urge cord)}
|
||||
=- [[%| bac (annotate alc boc bac)] ali bob]
|
||||
|- ^- $^
|
||||
_: _: bac+(list cord)
|
||||
|- ^- _: _: bac+(list cord)
|
||||
alc+(list cord)
|
||||
boc+(list cord)
|
||||
==
|
||||
|
||||
Loading…
Reference in New Issue
Block a user