From b2e2b570e194c071b5fa117cf6e592b9c6ccf5b8 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Fri, 29 Aug 2025 09:15:10 +0200 Subject: [PATCH] added trivial functions --- src/zulu/PhraseZul.gf | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/zulu/PhraseZul.gf b/src/zulu/PhraseZul.gf index 8896daa5f..bb22a2a15 100755 --- a/src/zulu/PhraseZul.gf +++ b/src/zulu/PhraseZul.gf @@ -11,13 +11,13 @@ concrete PhraseZul of Phrase = CatZul ** open Prelude, ParamX, ResZul in { -- UttIP ip = {s = ip.s ! npNom} ; --- Acc also -- UttIAdv iadv = iadv ; - -- UttNP np = {s = np.s ! npNom} ; + UttNP np = {s = np.s ! NFull} ; -- UttVP vp = {s = infVP VVInf vp False Simul CPos (agrP3 Sg)} ; -- UttAdv adv = adv ; -- UttCN n = {s = n.s ! Sg ! Nom} ; -- UttCard n = {s = n.s ! False ! Nom} ; - -- UttAP ap = {s = ap.s ! agrP3 Sg} ; - -- UttInterj i = i ; + UttAP ap = {s = ap.s ! AF1} ; + UttInterj i = i ; NoPConj = {s = []} ; -- PConjConj conj = {s = conj.s2} ; ---