From: simonmar <unknown>
Date: Tue, 15 Mar 2005 13:38:27 +0000 (+0000)
Subject: [project @ 2005-03-15 13:38:27 by simonmar]
X-Git-Tag: arity-anal-branch-point~24
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f04f95f83ac336d999aa55b9fa08f7b4589dd20b;p=ghc-base.git

[project @ 2005-03-15 13:38:27 by simonmar]
patch for iswprint() from Dimitry.
---

diff --git a/cbits/WCsubst.c b/cbits/WCsubst.c
index d63e0ea..facde30 100644
--- a/cbits/WCsubst.c
+++ b/cbits/WCsubst.c
@@ -3065,7 +3065,12 @@ int p(int c) \
 */
 
 unipred(u_iswcntrl,GENCAT_CC)
-unipred(u_iswprint,~(GENCAT_ZL|GENCAT_ZP|GENCAT_CC|GENCAT_CF|GENCAT_CS|GENCAT_CO))
+unipred(u_iswprint, \
+(GENCAT_MC | GENCAT_NO | GENCAT_SK | GENCAT_ME | GENCAT_ND | \
+  GENCAT_PO | GENCAT_LT | GENCAT_PC | GENCAT_SM | GENCAT_ZS | \
+  GENCAT_LU | GENCAT_PD | GENCAT_SO | GENCAT_PE | GENCAT_PF | \
+  GENCAT_PS | GENCAT_SC | GENCAT_LL | GENCAT_LM | GENCAT_PI | \
+  GENCAT_NL | GENCAT_MN | GENCAT_LO))
 unipred_s(u_iswspace,GENCAT_ZS)
 unipred(u_iswupper,(GENCAT_LU|GENCAT_LT))
 unipred(u_iswlower,GENCAT_LL)