bugfix for predefined operations

2021-10-21 08:55:22 +02:00
parent 64ccd82958
commit 38d189f8ef
3 changed files with 4 additions and 1 deletions
--- a/src/compiler/GF/Compile/Compute/Concrete.hs
+++ b/src/compiler/GF/Compile/Compute/Concrete.hs
@@ -518,7 +518,8 @@ value2string =
      where
        all_capit = map toUpper
 --  value2string (b,f,ws) (VAlts vd vas) =
-    value2string st _     = st
+    value2string (Const _) _  = RunTime
+    value2string st        _  = st

 string2value s =
  case words s of