GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 08:58:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Eng) Fix verbalN so that it includes particle (switching *on*)

Browse Source
This commit is contained in:
Inari Listenmaa
2020-11-26 19:45:00 +01:00
parent eeec3d998e
commit 9594ee9cf2
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/english/ParadigmsEng.gf
View File

@@ -412,7 +412,15 @@ mkInterj : Str -> Interj
compoundN s n = lin N {s = \\x,y => s ++ n.s ! x ! y ; g=n.g} ;
verbalN v = regN (v.s ! VPresPart) ;
-- NB. this only works when constructing lexicon, not applied to runtime arguments
verbalN v =
let switching : Str = v.s ! VPresPart ;
on : Str = v.p ;
in particleN (regN switching) on ;
particleN : N -> Str -> N = \n,str -> n ** {
s = \\num,cas => n.s ! num ! cas ++ str
} ;
mkPN = overload {
mkPN : Str -> PN = regPN ;