repairs to char-general-category

svn: r2697

src/mzscheme/src/char.c

@@ -407,7 +407,7 @@ static Scheme_Object *char_general_category (int argc, Scheme_Object *argv[])
   cat = scheme_general_category(c);
   if (!general_category_symbols[cat]) {
     Scheme_Object *s;
-    s = scheme_make_symbol(general_category_names[cat]);
+    s = scheme_intern_symbol(general_category_names[cat]);
     general_category_symbols[cat] = s;
   }
 

src/mzscheme/src/mk-uchar.ss

@@ -582,6 +582,7 @@
 (printf "  for (i = 0; i < ~a; i++) { ~n" hi-count)
 (printf "    scheme_uchar_table[i] = udata;~n")
 (printf "    scheme_uchar_cases_table[i] = udata_cases;~n")
+(printf "    scheme_uchar_cats_table[i] = udata_cats;~n")
 (printf "  }~n")
 (printf "~n")
 (define (print-init top vectors suffix)

src/mzscheme/src/schuchar.inc

@@ -3992,6 +3992,7 @@ static void init_uchar_table(void)
   for (i = 0; i < 8192; i++) { 
     scheme_uchar_table[i] = udata;
     scheme_uchar_cases_table[i] = udata_cases;
+    scheme_uchar_cats_table[i] = udata_cats;
   }
 
   scheme_uchar_table[0] = udata + 256;