mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-24 18:28:55 -06:00
resource fixes
This commit is contained in:
@@ -24,13 +24,7 @@ lin
|
||||
SymbTwo = infixSS "and" ;
|
||||
SymbMore = infixSS "," ;
|
||||
|
||||
|
||||
LetCN x cn = {
|
||||
s = \\_ => "let" ++ x.s ++ "be" ++ (indefNounPhrase singular cn).s ! NomP
|
||||
} ;
|
||||
LetNumCN x nu cn = {
|
||||
s = \\_ => "let" ++ x.s ++ "be" ++ (indefNounPhraseNum plural nu cn).s ! NomP
|
||||
} ;
|
||||
LetImp x np = {s = \\_ => "let" ++ x.s ! NomP ++ "be" ++ np.s ! NomP} ;
|
||||
ExistNP np = predVerbClause
|
||||
(nameNounPhraseN (fromAgr np.a).n (nameReg "there" Neutr))
|
||||
(regV "exist")
|
||||
|
||||
@@ -1195,7 +1195,7 @@ oper
|
||||
questClause : Clause -> Question = \cl ->
|
||||
{s = \\b,c => table {
|
||||
DirQ => cl.s ! Inv ! b ! c ;
|
||||
IndirQ => cl.s ! Dir ! b ! c
|
||||
IndirQ => "if" ++ cl.s ! Dir ! b ! c
|
||||
}
|
||||
} ;
|
||||
{- --vg
|
||||
|
||||
Reference in New Issue
Block a user