change type of pn

2019-06-28 16:19:22 +02:00
parent dfbe4b9d93
commit de44443068
5 changed files with 16 additions and 18 deletions
@@ -16,16 +16,14 @@ concrete NounLat of Noun = CatLat ** open ResLat, Prelude, ConjunctionLat in {

 --  UsePN   : PN -> NP ;          -- John
    UsePN pn =
-      lin NP
-	{
-	  s = pn.s ! Sg ;
-	  g = pn.g ;
-	  n = Sg ;
-	  p = P3 ;
-	  adv = "" ;
-	  preap, postap = { s = \\_ => "" } ;
-	  det = { s,sp = \\_,_ => "" ; n = Sg }
-	    } ;
+      pn **
+      {
+	s = \\_ => pn.s ;
+	p = P3 ;
+	adv = "" ;
+	preap, postap = { s = \\_ => "" } ;
+	det = { s,sp = \\_,_ => "" ; n = Sg }
+      } ;

 --  UsePron : Pron -> NP ;        -- he
    UsePron p =