removes +hor

This commit is contained in:
Joe Bryan 2019-01-08 18:04:22 -05:00
parent 0c4f2f9f14
commit d0aaea8df5

View File

@ -1190,19 +1190,6 @@
(dor a b)
(lth c d)
::
++ hor :: h-order
~/ %stage-hor
|= {a/* b/*}
=+ %uniq
^- ?
?: ?=(@ a)
?. ?=(@ b) &
(gor a b)
?: ?=(@ b) |
?: =(-.a -.b)
(gor +.a +.b)
(gor -.a -.b)
::
++ lor :: l-order
~/ %lor
|= {a/* b/*}