mirror of
https://github.com/urbit/shrub.git
synced 2025-01-05 19:46:50 +03:00
Merge pull request #916 from urbit/fixup-sort
Don't do two passes in the unjetted +sort
This commit is contained in:
commit
dc963f2119
@ -787,10 +787,11 @@
|
||||
=> .(a ^.(homo a))
|
||||
|- ^+ a
|
||||
?~ a ~
|
||||
=+ s=(skid t.a |:(c=i.a (b c i.a)))
|
||||
%+ weld
|
||||
$(a (skim t.a |:(c=i.a (b c i.a))))
|
||||
$(a p.s)
|
||||
^+ t.a
|
||||
[i.a $(a (skim t.a |:(c=i.a !(b c i.a))))]
|
||||
[i.a $(a q.s)]
|
||||
::
|
||||
++ spin :: stateful turn
|
||||
::
|
||||
|
Loading…
Reference in New Issue
Block a user