mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-25 11:06:28 -06:00
use consistent lin X everywhere
This commit is contained in:
@@ -22,13 +22,13 @@ lin
|
||||
|
||||
what_name_QCl x = mkQCl how_IAdv (mkCl (lin NP x) (reflV (mkV "chamar"))) ;
|
||||
how_old_QCl x = mkQCl (mkIP how8many_IDet L.year_N) x have_V2 ;
|
||||
how_far_QCl x = mkQCl (lin IAdv (ss "a que distância")) (mkCl x D.stare_V) ;
|
||||
how_far_QCl x = mkQCl (lin IAdv (ss "a que distância")) (mkCl x (lin V D.stare_V)) ;
|
||||
|
||||
-- some more things
|
||||
weather_adjCl ap = mkCl (mkVP (mkVA (mkV (fazer_Besch "fazer"))) (lin AP ap)) ;
|
||||
|
||||
is_right_VP = mkVP (mkVA D.stare_V) (mkAP (mkA "certo")) ;
|
||||
is_wrong_VP = mkVP (mkVA D.stare_V) (mkAP (mkA "errado")) ;
|
||||
is_right_VP = mkVP (mkVA (lin V D.stare_V)) (mkAP (mkA "certo")) ;
|
||||
is_wrong_VP = mkVP (mkVA (lin V D.stare_V)) (mkAP (mkA "errado")) ;
|
||||
|
||||
n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn))))
|
||||
(lin A a) ;
|
||||
|
||||
Reference in New Issue
Block a user