summaryrefslogtreecommitdiff
path: root/next-lib/src/french/MakeStructuralFre.gf
diff options
context:
space:
mode:
Diffstat (limited to 'next-lib/src/french/MakeStructuralFre.gf')
-rw-r--r--next-lib/src/french/MakeStructuralFre.gf3
1 files changed, 3 insertions, 0 deletions
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 = <>} ;
+
}