Attempto complete up to spec

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/english/MakeStructuralEng.gf
+++ b/next-lib/src/english/MakeStructuralEng.gf
@@ -9,5 +9,7 @@ oper
    {s = x ; lock_Subj = <>} ;
  mkNP : Str -> Number -> NP = \s,n ->
    regNP s n ** {lock_NP = <>} ;
+  mkIDet : Str -> Number -> IDet = \s,n ->
+    {s = s ; n = n ; lock_IDet = <>} ;

 }