mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-03 16:22:52 -06:00
updated Ina so that API compiles
This commit is contained in:
@@ -15,6 +15,11 @@ concrete PhraseIna of Phrase = CatIna ** open Prelude, ResIna in {
|
||||
UttVP vp = {s = infVP vp} ;
|
||||
UttAdv adv = adv ;
|
||||
|
||||
UttCN n = {s = n.s ! Sg} ;
|
||||
UttCard n = {s = n.s} ;
|
||||
UttAP ap = {s = ap.s ! agrP3 Sg} ;
|
||||
UttInterj i = i ;
|
||||
|
||||
NoPConj = {s = []} ;
|
||||
PConjConj conj = ss conj.s2 ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user