From f30560efcc5acb39f8b9a4a5d0ea0482224a5fc1 Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 15 Nov 2008 20:08:09 +0000 Subject: Attempto complete up to spec --- next-lib/src/german/MakeStructuralGer.gf | 2 ++ 1 file changed, 2 insertions(+) (limited to 'next-lib/src/german') diff --git a/next-lib/src/german/MakeStructuralGer.gf b/next-lib/src/german/MakeStructuralGer.gf index 8f5006df9..1a26e59cd 100644 --- a/next-lib/src/german/MakeStructuralGer.gf +++ b/next-lib/src/german/MakeStructuralGer.gf @@ -7,5 +7,7 @@ oper {s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ; mkSubj : Str -> Subj = \x -> {s = x ; lock_Subj = <>} ; + mkIQuant : Str -> IQuant = \s -> + {s = \\_,_,_ => s ; lock_IQuant = <>} ; } -- cgit v1.2.3