From abfda7dd48079418b91208292e4897d68cb699f3 Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 8 May 2010 13:54:38 +0000 Subject: [PATCH] spacing of German numerals --- src/compiler/GF/Compile/Concrete/Compute.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/compiler/GF/Compile/Concrete/Compute.hs b/src/compiler/GF/Compile/Concrete/Compute.hs index 9c016116b..44a6bfad1 100644 --- a/src/compiler/GF/Compile/Concrete/Compute.hs +++ b/src/compiler/GF/Compile/Concrete/Compute.hs @@ -297,7 +297,12 @@ computeTermOpt rec gr = comput True where _ -> return p compSelect g (S t' v') = case v' of - FV vs -> mapM (\c -> comp g (S t' c)) vs >>= returnC . variants + FV vs -> mapM (\c -> comp g (S t' c)) vs >>= returnC . variants + +---- S (T i cs) e -> prawitz g i (S t') cs e -- AR 8/7/2010 sometimes better +---- S (V i cs) e -> prawitzV g i (S t') cs e -- sometimes much worse + + _ -> case t' of FV ccs -> mapM (\c -> comp g (S c v')) ccs >>= returnC . variants