ditt o datt

2026-05-22 01:22:51 -06:00 · 2004-04-23 13:45:07 +00:00
parent 23914ca726
commit 45fa5271d9
8 changed files with 39 additions and 33 deletions
--- a/src/GF/Compile/PrOld.hs
+++ b/src/GF/Compile/PrOld.hs
@@ -56,6 +56,8 @@ stripTerm t = case t of
                  TComp ty -> TComp $ stripTerm ty
                  TWild ty -> TWild $ stripTerm ty
                  _ -> ti
+  R [] -> EInt 8      --- GF 1.2 parser doesn't accept empty records 
+  RecType [] -> Cn "Int" ---
  _ -> composSafeOp stripTerm t

 stripPattern p = case p of