New vane version detection.

This commit is contained in:
C. Guy Yarvin 2014-01-05 18:10:37 -08:00
parent 37c32ed8b7
commit 98e6396258

View File

@ -7189,7 +7189,17 @@
=+ rev=(slam (slap bud (rain pax txt)) `vase`[viz.vil bud])
=+ syg=(slam rev arg)
=+ ole=(slap rig [%cnzy %stay])
+>.$(ves (slam (slap syg [%cnzy %load]) ole))
=+ [vol=(slap rig [%cnzy %vern]) vew=(slap syg [%cnzy %vern])]
?> =(stub -.q.vew)
?: =(q.vol q.vew)
+>.$(ves (slam (slap syg [%cnzy %load]) ole))
=+ ^= sam
?: =(stub -.q.vol)
?>(=(+.q.vew +(((hard ,@) +.q.vol))) &)
?>(&(=(0 +.q.vew) =(-.q.vol +(stub))) |)
%= +>.$
ves (slam (slap syg [%cnzy %come]) (slop [[%cube sam %atom %f] sam] ole))
==
::
++ wink :: deploy
|= [now=@da eny=@ sky=$+(* (unit))]