From: simonmar <unknown>
Date: Wed, 16 Mar 2005 10:55:04 +0000 (+0000)
Subject: [project @ 2005-03-16 10:55:04 by simonmar]
X-Git-Tag: arity-anal-branch-point~21
X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=commitdiff_plain;h=1611c6688644c13e2feac34d7ea4d2415239c5e4

[project @ 2005-03-16 10:55:04 by simonmar]
Back-port changes from WCsubst.c:iswprint()
---

diff --git a/cbits/ubconfc b/cbits/ubconfc
index 6344ecc..cf0967c 100644
--- a/cbits/ubconfc
+++ b/cbits/ubconfc
@@ -308,7 +308,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)