From e5c60c9cfd25d260576c451f3005d8f6f27966a4 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 27 Apr 2004 19:37:01 +0000
Subject: optimization in make

---
 src/GF/Compile/PrOld.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/Compile')

diff --git a/src/GF/Compile/PrOld.hs b/src/GF/Compile/PrOld.hs
index 4462fb95d..683dbe419 100644
--- a/src/GF/Compile/PrOld.hs
+++ b/src/GF/Compile/PrOld.hs
@@ -57,7 +57,7 @@ stripTerm t = case t of
                   TWild ty -> TWild $ stripTerm ty
                   _ -> ti
   R [] -> EInt 8      --- GF 1.2 parser doesn't accept empty records 
-  RecType [] -> Cn "Int" ---
+  RecType [] -> Cn (zIdent "Int") ---
   _ -> composSafeOp stripTerm t
 
 stripPattern p = case p of
-- 
cgit v1.2.3