5. add entropy to arvo with %wack

This commit is contained in:
Joe Bryan 2018-12-05 15:50:28 -05:00
parent 22f174fa10
commit 1c2f841f86

View File

@ -598,7 +598,7 @@
::
:: XX should vega be in this list?
::
?: ?=(?(%veer %vega %verb) -.q.ovo)
?: ?=(?(%veer %vega %verb %wack) -.q.ovo)
[[ovo ~] +>.$]
::
=^ zef vanes
@ -634,6 +634,12 @@
dot+`.
==
[[~ ovo] +>.$]
:: add entropy
::
%wack
?> ?=(@ q.q.ovo)
=. eny (mix eny (shaz q.q.ovo))
[~ +>.$]
==
::
++ veke :: build new kernel