Extras added to see if phrasebook will start to work

This commit is contained in:
Roman Suzi
2020-07-24 16:09:49 +03:00
parent 662b731dd0
commit ea7f9aba0f
3 changed files with 52 additions and 2 deletions
+1 -1
View File
@@ -79,7 +79,7 @@ lin
-- : Quant -> Num -> Det ; -- these five
DetQuant quant num = {
s=\\g,a,c => num.s ! g ! a ! c ++ quant.s ! (gennum g (numSizeNumber num.size)) ! a ! c ;
s=\\g,a,c => quant.s ! (gennum g (numSizeNumber num.size)) ! a ! c ++ num.s ! g ! a ! c ;
g=quant.g ;
c=quant.c ;
size=num.size