drum: revert tang ordering change

Turns out this wasn't a regression, it was intended behavior.  I
continue to believe it's the wrong behavior, but that will require a
longer discussion.
This commit is contained in:
Philip Monk 2019-12-09 11:47:48 -08:00
parent 8f99735982
commit 5ff9e04204
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
2 changed files with 3 additions and 2 deletions

View File

@ -936,7 +936,8 @@
?+ p.cage.sign ~|([%dojo-thread-bad-mark-result p.cage.sign] !!)
%thread-fail
=+ !<([=term =tang] q.cage.sign)
(he-diff(poy ~) %tan leaf+"thread failed: {<term>}" tang)
%+ he-diff(poy ~) %tan
(flop `^tang`[leaf+"thread failed: {<term>}" tang])
::
%thread-done
?> ?=(^ poy)

View File

@ -438,7 +438,7 @@
|= tac/(list tank)
^+ +>
=/ wol/wall
(zing (turn tac |=(a/tank (~(win re a) [0 edg]))))
(zing (turn (flop tac) |=(a/tank (~(win re a) [0 edg]))))
|- ^+ +>.^$
?~ wol +>.^$
?. ((sane %t) (crip i.wol)) :: XX upstream validation