[uim-commit] r1900 - branches/r5rs/sigscheme

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-30 09:05:09 -0800 (Sun, 30 Oct 2005)
New Revision: 1900

Modified:
   branches/r5rs/sigscheme/encoding.c
Log:
* sigscheme/encoding.c
  - (Scm_mb_scan_char): Fix the case no multibyte encodings


Modified: branches/r5rs/sigscheme/encoding.c
===================================================================
--- branches/r5rs/sigscheme/encoding.c	2005-10-30 09:52:41 UTC (rev 1899)
+++ branches/r5rs/sigscheme/encoding.c	2005-10-30 17:05:09 UTC (rev 1900)
@@ -89,7 +89,11 @@
 =======================================*/
 /* TODO: add some mechanism to dynamically switch between encodings. */
 ScmMultibyteCharInfo (*Scm_mb_scan_char)(ScmMultibyteString mbs)
+#if SCM_USE_UTF8
     = utf8_scan_char;
+#else
+    = unibyte_scan_char;
+#endif
 
 /*=======================================
   Public API