optimization in make

This commit is contained in:
aarne
2004-04-27 19:37:01 +00:00
parent 233d6910e4
commit e5c60c9cfd
3 changed files with 8 additions and 4 deletions

View File

@@ -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