msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(zul) fixed demonstratives

Browse Source
This commit is contained in:
Laurette Marais
2022-06-01 13:23:51 +02:00
parent 8073d2a91b
commit 4c03a40aef
3 changed files with 14 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/zulu/StructuralZul.gf
+2 -5
View File
@@ -130,17 +130,14 @@ concrete StructuralZul of Structural = CatZul **
-- Quant (we use this category for demonstratives only)
that_Quant = {
s = \\b,a => case b of {
False => dem_pron!Dem2!a ;
True => dem_pron_na!Dem2!a
} ;
s = \\b,a => dem_pron!Dem2!a ;
dist = Dem2
} ;
-- this_Quant = { s = [] ; dist = Dem1 } ;
this_Quant = {
s = \\b,a => case b of {
False => dem_pron!Dem1!a ;
True => dem_pron_na!Dem1!a
True => dem_pron!Dem1!a ++ dem_pron_na!a
} ;
dist = Dem1
} ;