1 files changed, 0 insertions, 53 deletions
diff --git a/contrib/summerschool/foods/MutationsGla.gf b/contrib/summerschool/foods/MutationsGla.gf
deleted file mode 100644
index 41eb11006..000000000
--- a/contrib/summerschool/foods/MutationsGla.gf
+++ /dev/null
@@ -1,53 +0,0 @@
-resource MutationsGla = open CharactersGla in {
-	param Mutation = Unmutated|Lenition1|Lenition1DNTLS|Lenition2|PrefixT|PrefixH;
-	
-	--Turns a string into a mutation table
-	oper mutate : (_ : Str) -> (Mutation => Str) = \str -> table {
-		Unmutated => str ;
-		Lenition1 => lenition1 str ;
-		Lenition1DNTLS => lenition1dntls str ;
-		Lenition2 => lenition2 str ;
-		PrefixT => prefixT str ;
-		PrefixH => prefixH str
-	};
-
-	--Performs lenition 1: inserts "h" if the word begins with a lenitable character
-	oper lenition1 : Str -> Str = \str -> case str of {
-		start@("p"|"b"|"m"|"f"|"t"|"d"|"c"|"g") + rest => start + "h" + rest ;
-		start@("P"|"B"|"M"|"F"|"T"|"D"|"C"|"G") + rest => start + "h" + rest ;
-		("s"|"S") + ("p"|"t"|"c") + _ => str ; --the sequences "sp", "st", "sc" are never mutated
-		start@("s"|"S") + rest => start + "h" + rest ;
-		_ => str
-	};
-	
-	--Performs lenition 1 with dentals: same as lenition 1 but leaves "d", "t" and "s" unmutated
-	oper lenition1dntls : Str -> Str = \str -> case str of {
-		start@("p"|"b"|"m"|"f"|"c"|"g") + rest => start + "h" + rest ;
-		start@("P"|"B"|"M"|"F"|"C"|"G") + rest => start + "h" + rest ;
-		_ => str
-	};
-
-	--Performs lenition 2: same as lenition 1 with dentals but also changes "s" into "ts"
-	oper lenition2 : Str -> Str = \str -> case str of {
-		start@("p"|"b"|"m"|"f"|"c"|"g") + rest => start + "h" + rest ;
-		start@("P"|"B"|"M"|"F"|"C"|"G") + rest => start + "h" + rest ;
-		("s"|"S") + ("p"|"t"|"c") + _ => str ; --the sequences "sp", "st", "sc" are never mutated
-		start@("s"|"S") + rest => "t-" + start + rest ;
-		_ => str
-	};
-	
-	--Prefixes a "t" to words beginning with a vowel
-	oper prefixT : Str -> Str = \str -> case str of {
-		start@(#vowel) + rest => "t-" + start + rest ;
-		start@(#vowelCap) + rest => "t-" + start + rest ;
-		_ => str
-	};
-
-	--Prefixes a "h" to words beginning with a vowel
-	oper prefixH : Str -> Str = \str -> case str of {
-		start@(#vowel) + rest => "h-" + start + rest ;
-		start@(#vowelCap) + rest => "h-" + start + rest ;
-		_ => str
-	};
-	
-}
-\ No newline at end of file