From: simonmar <unknown>
Date: Tue, 12 Dec 2000 15:49:20 +0000 (+0000)
Subject: [project @ 2000-12-12 15:49:20 by simonmar]
X-Git-Tag: Approximately_9120_patches~3115
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4dd74f38b2afd902bab4748caf4138bbd1cd93e4;p=ghc-hetmet.git

[project @ 2000-12-12 15:49:20 by simonmar]
Add missing default case from isSpecial
---

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index 7de898b..2febf52 100644
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -292,6 +292,7 @@ isSpecial ITunsafe    	= True
 isSpecial ITwith      	= True
 isSpecial ITccallconv   = True
 isSpecial ITstdcallconv = True
+isSpecial _             = False
 
 -- IMPORTANT: Keep this in synch with ParseIface.y's var_fs production! (SUP)
 ghcExtensionKeywordsFM = listToUFM $