diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-11-15 20:08:09 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-11-15 20:08:09 +0000 |
| commit | f30560efcc5acb39f8b9a4a5d0ea0482224a5fc1 (patch) | |
| tree | 91f1e3b2a3044ee3531dcf4a799db427681c81b4 /next-lib/src/french/MakeStructuralFre.gf | |
| parent | 373b4d6828e0eba56e11cd5851591d303f369b43 (diff) | |
Attempto complete up to spec
Diffstat (limited to 'next-lib/src/french/MakeStructuralFre.gf')
| -rw-r--r-- | next-lib/src/french/MakeStructuralFre.gf | 3 |
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 = <>} ; + } |