Remove Control.Parallel*, now in package parallel

[haskell-directory.git] / cbits / WCsubst.c

diff --git a/cbits/WCsubst.c b/cbits/WCsubst.c
index 18752b9..a369504 100644 (file)
--- a/cbits/WCsubst.c
+++ b/cbits/WCsubst.c
@@ -3000,7 +3000,7 @@ static const struct _charblock_ spacechars[]={
 
 static const struct _convrule_ nullrule={0,NUMCAT_CN,0,0,0,0};
 
-int blkcmp(const void *vk,const void *vb)
+static int blkcmp(const void *vk,const void *vb)
 {
        const struct _charblock_ *key,*cur;
        key=vk;
@@ -3065,12 +3065,16 @@ 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)
 unipred(u_iswalpha,(GENCAT_LL|GENCAT_LU|GENCAT_LT|GENCAT_LM|GENCAT_LO))
-unipred(u_iswdigit,GENCAT_ND)
 
 unipred(u_iswalnum,(GENCAT_LT|GENCAT_LU|GENCAT_LL|GENCAT_LM|GENCAT_LO|
                    GENCAT_MC|GENCAT_ME|GENCAT_MN|