Uncommented large functions

This commit is contained in:
lauma
2025-08-25 17:19:40 +03:00
parent 943f387a23
commit e4cf12ee1a
2 changed files with 5 additions and 5 deletions

View File

@@ -18,7 +18,7 @@ lin
ImpVP vp = { s = \\pol,num => vp.v.s ! pol ! (VImp num) ++ vp.compl ! (AgrP2 num Masc) } ;
-- SlashVP np vp = mkClause np vp ** { prep = vp.rightVal } ;
SlashVP np vp = mkClause np vp ** { prep = vp.rightVal } ;
-- FIX ME tmp comment
AdvSlash slash adv = {

View File

@@ -182,7 +182,7 @@ lin
-- VPSlash -> NP -> VP
-- e.g. 'love it'
{- ComplSlash vpslash np =
ComplSlash vpslash np =
let agr : Agreement = np.agr in {
v = vpslash.v ;
-- compl = \\agr => case vpslash.voice of {
@@ -202,7 +202,7 @@ lin
rightPol = np.pol ;
objPron = np.isPron ;
rightVal = vpslash.rightVal
} ; -} -- FIX ME tmp comment
} ; -- FIX ME tmp comment
-- VV -> VPSlash -> VPSlash
-- e.g. 'want to buy'
@@ -219,7 +219,7 @@ lin
-- V2V -> NP -> VPSlash -> VPSlash
-- e.g. '-- beg me to buy'
{- SlashV2VNP v2v np vpslash = insertObjSlash
SlashV2VNP v2v np vpslash = insertObjSlash
(\\_ => v2v.rightVal.s ++ np.s ! (v2v.rightVal.c ! (fromAgr np.agr).num))
{
v = v2v ;
@@ -230,7 +230,7 @@ lin
rightPol = np.pol ;
objPron = np.isPron ;
rightVal = v2v.rightVal
} ; -} -- FIX ME tmp comment
} ; -- FIX ME tmp comment
-- Other ways of forming verb phrases