unverified definitions of some Croatian functions

2026-06-27 03:46:29 -06:00 · 2024-04-03 17:44:00 +02:00
parent a0c8198a68
commit cd3a2e0ac4
10 changed files with 58 additions and 13 deletions
@@ -6,13 +6,12 @@ concrete RelativeHrv of Relative = CatHrv ** open
 lin
    RelVP rp vp = vp ** {
      subj  =
-        let rel = (adjFormsAdjective rp).s
+        let rel = rp.s
 	in \\a => case a of {
 	  Ag g n _ => rel ! g ! n ! Nom
 	  } 
      } ;
      
-    IdRP = (mkA "koji").posit ; 
-
+    IdRP = adjFormsAdjective (mkA "koji").posit ; 

 }