GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-01 11:38:34 -06:00
Code Issues Packages Projects Releases Wiki Activity

fixed relative longform

Browse Source
This commit is contained in:
Laurette Marais
2022-05-12 05:21:11 +02:00
parent 9f3b45bf48
commit 06593c5fb9
2 changed files with 4 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/zulu/ResZul.gf
-24
View File
@@ -642,30 +642,6 @@ resource ResZul = open Prelude,Predef,ParamX in {
t = RelType
} ;
-- enumAdj : Str -> { s : AForm => Str ; empty : Str ; t : AType } = \a ->
-- {
-- s = \\_ => a ;
-- -- b = case a of {
-- -- ("kh"|"th"|"sh"|"b"|"f"|"hl")+_ => True ;
-- -- ("m"|"n")+_ => True ;
-- -- _ => False
-- -- } ;
-- empty = [] ;
-- t = EnumType
-- } ;
-- relSuf : VForm -> Bool -> Str = \longform ->
-- case longform of {
-- True => pre { #vowel => [] ; #cons => [] ; "y" => [] ; _ => "yo" } ;
-- False => []
-- } ;
rel_yo : Str = pre {
#vowel => [] ;
#cons => [] ;
_ => BIND++"yo"
} ;
rel_yo_2 : Str = BIND++"yo" ;
relSuf : VForm -> Str = \vform -> case vform of {