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

Attempto complete up to spec

Browse Source
This commit is contained in:
aarne
2008-11-15 20:08:09 +00:00
parent b13c62f71b
commit d67c87b7d8
14 changed files with 71 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
next-lib/src/api/Constructors.gf
View File

@@ -1378,6 +1378,13 @@ incomplete resource Constructors = open Grammar in {
= AdvIP
} ;
mkIDet = overload {
mkIDet : IQuant -> Num -> IDet -- which (songs)
= \i,nu -> IdetQuant i nu ;
mkIDet : IQuant -> IDet -- which (song)
= \i -> IdetQuant i NumSg ;
} ;
whichSg_IDet : IDet = IdetQuant which_IQuant NumSg ;
whichPl_IDet : IDet = IdetQuant which_IQuant NumPl ;