From 3ec86c4604d9f726a793d1f9a0dcd1b1e5f452ba Mon Sep 17 00:00:00 2001
From: johnvg
Date: Thu, 12 Apr 2007 11:32:54 +0000
Subject: remove unused type Choice

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1670 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/general.dcl | 2 --
 frontend/general.icl | 2 --
 2 files changed, 4 deletions(-)

diff --git a/frontend/general.dcl b/frontend/general.dcl
index 9ef927f..9fe2ccc 100644
--- 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
diff --git a/frontend/general.icl b/frontend/general.icl
index cd25cbc..2d4a7b2 100644
--- 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
-- 
cgit v1.2.3