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/french/MakeStructuralFre.gf | 3 +++ 1 file changed, 3 insertions(+) (limited to 'next-lib/src/french/MakeStructuralFre.gf') diff --git a/next-lib/src/french/MakeStructuralFre.gf b/next-lib/src/french/MakeStructuralFre.gf index 282e1c3e7..5aa94dcfe 100644 --- a/next-lib/src/french/MakeStructuralFre.gf +++ b/next-lib/src/french/MakeStructuralFre.gf @@ -10,4 +10,7 @@ oper mkSubjSubj : Str -> Subj = \x -> {s = x ; m = Conjunct ; lock_Subj = <>} ; + mkIQuant : Str -> IQuant = \s -> + {s = \\_,_,c => prepCase c ++ s ; lock_IQuant = <>} ; + } -- cgit v1.2.3