Applied new convention for variants.

1 files changed, 0 insertions, 10 deletions

diff --git a/stdlib/source/library/lux/control/parser/binary.lux b/stdlib/source/library/lux/control/parser/binary.lux
index 1491e0cea..846f952d3 100644
--- a/stdlib/source/library/lux/control/parser/binary.lux
+++ b/stdlib/source/library/lux/control/parser/binary.lux
@@ -123,16 +123,6 @@
   (!variant [[0 [#.Left] left]
              [1 [#.Right] right]]))
 
-(def: .public (or/5 p/0 p/1 p/2 p/3 p/4)
-  (All (_ p/0 p/1 p/2 p/3 p/4)
-    (-> (Parser p/0) (Parser p/1) (Parser p/2) (Parser p/3) (Parser p/4)
-        (Parser (Or p/0 p/1 p/2 p/3 p/4))))
-  (!variant [[0 [0 #0] p/0]
-             [1 [1 #0] p/1]
-             [2 [2 #0] p/2]
-             [3 [3 #0] p/3]
-             [4 [3 #1] p/4]]))
-
 (def: .public (rec body)
   (All (_ a) (-> (-> (Parser a) (Parser a)) (Parser a)))
   (function (_ input)