Attempto complete up to spec

2026-05-21 17:12:50 -06:00 · 2008-11-15 20:08:09 +00:00
parent 373b4d6828
commit f30560efcc
14 changed files with 71 additions and 13 deletions
--- 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 = <>} ;
+
 }