remove unused type Choice

cc1c5c8d · John van Groningen · a56463d1 · cc1c5c8d · cc1c5c8d
Commit cc1c5c8d authored Apr 12, 2007 by John van Groningen
--- a/frontend/general.dcl
+++ b/frontend/general.dcl
@@ -25,8 +25,6 @@ instance <<< [a] | <<< a

 hasOption :: (Optional x) -> Bool

-::	Choice a b  = Either a | Or b
-
 (--->) infix :: .a !b -> .a | <<< b
 (<---) infix :: !.a !b -> .a | <<< b
 traceValue :: !String !String .a -> .a

--- a/frontend/general.icl
+++ b/frontend/general.icl
@@ -11,8 +11,6 @@ import StdEnv

 ::	Optional x = Yes !x | No

-::	Choice a b  = Either a | Or b
-
 cMAXINT :== 2147483647

 ::	BITVECT :== Int