This commit is contained in:
janna
2006-06-09 11:10:43 +00:00
parent 648b186491
commit b589a0fd4d
5 changed files with 182 additions and 116 deletions

View File

@@ -57,7 +57,7 @@ concrete SentenceRus of Sentence = CatRus ** open Prelude, ResRus in {
SlashPrep cl p = {s=cl.s; s2=p.s; c=p.c} ;
ImpVP inf = {s = \\pol, g,n =>
let
let
dont = case pol of {
Neg => "не" ;
_ => []