Correction of all compilation mistatkes

2026-07-02 03:58:34 -06:00 · 2019-05-03 16:43:17 +02:00
parent 023930e37a
commit b18ffa9d0b
6 changed files with 80 additions and 26 deletions
@@ -15,9 +15,9 @@ lin
  UttNP     np = {s= np.s!Acc}; --: NP -> Utt ;
  UttAdv   adv = {s = adv.s}; --: Adv -> Utt ;        -- in the house
  UttImpSg  pol imp = {s = 
-    case pol.isTrue of {
-        True  => imp.s!True;
-        False => (mkSubjClitic (AgMUBAP2 Sg)) ++ imp.s!False          
+    case pol.p of {
+        Pos  => imp.s!True;
+        Neg => (mkSubjClitic (AgMUBAP2 Sg)) ++ imp.s!False          
      }
    };--: Pol -> Imp -> Utt ; -- (do not) walk ----s
 {-