mirror of
https://github.com/urbit/shrub.git
synced 2024-12-01 14:42:02 +03:00
arvo: use date instead of kelvin
This commit is contained in:
parent
7266b3f5c3
commit
f6171042ae
@ -1,3 +1,3 @@
|
||||
version https://git-lfs.github.com/spec/v1
|
||||
oid sha256:9210b8244f5cd76654c3e8546f77dfa88a500e14ba0e593ededef318fd9d0f32
|
||||
size 16948743
|
||||
oid sha256:19d6cb7e5a323590455d641161b911190b3dcd1a0f601bef1304b6b340fa0dc9
|
||||
size 16662878
|
||||
|
@ -1050,14 +1050,14 @@
|
||||
:: +dram: upgrade $pram, compatible
|
||||
::
|
||||
+$ pram
|
||||
$~ [%345 nub=*debt:le:part]
|
||||
$% [%345 nub=debt:le:part]
|
||||
$~ [%~2020.6.28 nub=*debt:le:part]
|
||||
$% [%~2020.6.28 nub=debt:le:part]
|
||||
(list ovum)
|
||||
==
|
||||
++ dram
|
||||
|= ram=pram
|
||||
^- pram
|
||||
?: ?=([%345 *] ram)
|
||||
?: ?=([%~2020.6.28 *] ram)
|
||||
ram
|
||||
~| ram+ram
|
||||
=| nub=debt:le:part
|
||||
@ -1067,7 +1067,7 @@
|
||||
|= ovo=ovum
|
||||
^- move
|
||||
[[p.ovo]~ %give %& %noun q.ovo]
|
||||
[%345 nub(run [plan]~)]
|
||||
[%~2020.6.28 nub(run [plan]~)]
|
||||
:: $prim: old $pram
|
||||
:: +drum: upgrade $prim to $pram, incompatible
|
||||
::
|
||||
@ -1094,7 +1094,7 @@
|
||||
vanes (turn nyf |=({a/@tas b/vise} [a [b *worm]]))
|
||||
==
|
||||
=. ram (dram ram)
|
||||
?> ?=([%345 *] ram)
|
||||
?> ?=([%~2020.6.28 *] ram)
|
||||
=/ run plot:(spam:(lead now ~) [//arvo %vega ~])
|
||||
(leap now (then:(lead now `nub.ram) run))
|
||||
:: +peek: external inspect
|
||||
@ -1323,7 +1323,7 @@
|
||||
:* our
|
||||
now
|
||||
eny
|
||||
345+nub
|
||||
[%~2020.6.28 nub]
|
||||
bud
|
||||
(turn vanes |=([label=@tas =vane] [label vase.vane]))
|
||||
==
|
||||
|
Loading…
Reference in New Issue
Block a user