Attempto complete up to spec

2026-05-08 02:32:50 -06:00 · 2008-11-15 20:08:09 +00:00
parent b13c62f71b
commit d67c87b7d8
14 changed files with 71 additions and 13 deletions
--- 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 = <>} ;

 }