don't use record extension with PTypes

the current (non-majestic) runtime doesn't support it
2025-08-11 14:43:38 +02:00
parent cdc1108a36
commit a0a8d99872
2 changed files with 6 additions and 6 deletions
@@ -502,13 +502,13 @@ oper
   
 -- Agreements :

-- for relatives 
-  
+-- for relatives
+
 AAgr : PType = {g : Gender ; n : Number} ;
-  
+
 -- for agreement between subject and predicate
-  
- Agr  : PType = AAgr ** {p : Person} ;
+
+ Agr  : PType = {g : Gender ; n : Number ; p : Person} ;


 -- clause building function :