arvo: use date instead of kelvin

This commit is contained in:
Ted Blackman 2020-06-28 01:13:42 -04:00
parent 7266b3f5c3
commit f6171042ae
2 changed files with 8 additions and 8 deletions

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:9210b8244f5cd76654c3e8546f77dfa88a500e14ba0e593ededef318fd9d0f32
size 16948743
oid sha256:19d6cb7e5a323590455d641161b911190b3dcd1a0f601bef1304b6b340fa0dc9
size 16662878

View File

@ -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]))
==