rewrote an mkPN application in WordsGer to work around a problem that might be a type checker bug

This commit is contained in:
aarne
2015-07-23 16:16:38 +00:00
parent 3788098e0a
commit a1a602c681

View File

@@ -230,7 +230,7 @@ CitRestaurant cit = mkCNPlace (mkCN cit (mkN "Restaurant" "Restaurants" neuter)
prop = mkA adj ; country = mkNP (mkPN co)} ;
mkDay : Str -> {name : NP ; point : Adv ; habitual : Adv} = \d ->
let day = mkNP (mkPN d) in
let day = mkNP (mkPN d masculine) in
{name = day ;
point = SyntaxGer.mkAdv (mkPrep "am" dative) day ; ---- am
habitual = ParadigmsGer.mkAdv (d + "s") ----